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Preface 


This book shows how to put together a large machine lan- 
guage program. All of the fundamentals were covered in my 
first book, Machine Language for Beginners. What remains is to 
put the rules to use by constructing a working program, to 
take the theory into the field and show how machine language 
is done. 

Showing how to construct an assembler—written entirely 
in machine language—would serve two useful purposes. It 
would illustrate advanced programming technique and also 
provide the reader with a powerful assembler to use in other 
ML programming. 

This book, then, offers the reader both a detailed descrip- 
tion of a sophisticated machine language program (the LADS 
assembler) and an efficient tool, a complete language with 
which to write other machine language programs. Every line 
in the LADS assembler program is described. All the sub- 
routines are picked apart and explained. Each major routine is 
examined in depth. 

LADS, the Label Assembler Development System, is a 
fast, feature-laden assembler—it compares favorably with the 
best assemblers available commercially. And not the least of 
its virtues is the fact that few programs you will ever use will 
be as thoroughly documented and therefore as accessible to 
your understanding, modification, and customization. 

LADS is a learning device too. By exploring the assem- 
bler, you will learn how to go about writing your own large 
machine language (ML) programs. You will see how a data 
base is created and maintained, how to communicate with 
peripherals, and how to accomplish many other ML tasks. 
Also, because you can study the creation of a computer lan- 
guage, the LADS assembler, you will gain an in-depth knowl- 
edge of the intimate details of direct communication with your 
computer. 

Most programming involves a tradeoff between three pos- 
sible objectives: speed, brevity, or clarity. You can program 
with the goal of creating the fastest running program possible. 
Or you can try to write a program which uses up as little 
memory as possible. Or you can try to make the program as 
understandable as possible, maximizing the readability of the 
program listing with REMarks. 


LADS emphasizes clarity so that its source code will serve 
as a learning tool and as the focus of this book. It’s designed 
so that important events in the program can be easily ex- 
plained and understood. Virtually every ML instruction, every 
tiny step, is commented within the source code listings follow- 
ing each chapter. 

This doesn’t mean that LADS is flabby or slow. Assem- 
bling roughly 1000 bytes a minute and taking up 5K in mem- 
ory, LADS is considerably faster and more compact than most 
commercial assemblers. That’s because, in ML, you can have 
the best of both worlds: You can comment as heavily as you 
want, but the assembler will strip off the comments when it 
creates the object code. In this way, clarity does not sacrifice 
memory or speed. 

The frequent comments contribute considerably to the 
educational value of this assembler. Exploring LADS is a way 
to learn how to achieve many common programming goals 
and how to construct a large, significant program entirely in 
ML. An additional advantage of this comprehensibility is that 
you'll be able to modify LADS to suit yourself: Add your own 
pseudo-ops, define defaults, format output. All this is referred 
to as a language’s extensibility. We'll get to this in a minute. 

What BASIC is to BASIC programming, an assembler is to 
ML programming. LADS is a complete language. You write 
programs (source code) which LADS translates into the fin- 
ished, executable ML (object code). Unlike less advanced 
assemblers, however, symbolic assemblers such as LADS can 
be as easy to use as higher level languages like BASIC. The 
source code is very simple to modify. Variables and sub- 
routines have names. The program can be internally com- 
mented with REM-like explanations. Strings are automatic via 
the .BYTE command. There are a variety of other built-in fea- 
tures, the pseudo-ops, which make it easy to save object pro- 
grams, control the screen and printer listings, choose hex or 
decimal disassembly, and service other common programming 
needs. 

Perhaps the best feature of LADS, though, is its extensibil- 
ity. Because you have the entire source code along with de- 
tailed explanations of all the routines, you can customize 
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LADS to suit yourself. Add as many pseudo-ops as you want. 
Redesign your ML programming language anytime and for 
any reason. Using an extensible programming language gives 
you control not only over the programs you design, but also 
over the way that they are created. You can adjust your tools 
to fit your own work style. 

Do you often need to subtract hex numbers during assem- 
bly? It’s easy to stick in a — command. Would you rather that 
LADS read source programs from RAM memory instead of 
disk files? (This makes it possible to assemble using a tape 
drive. It can also be a bit faster.) In Chapter 11 we'll go 
through the steps necessary to make this and other modifica- 
tions. You'll be surprised at how easy it is. 

Finally, studying the language (the LADS assembler) 
which produces machine language will significantly deepen 
your understanding of ML programming. 

I would like to thank Charles Brannon for his translation 
and work with the Atari version of LADS, Kevin Martin for his 
translation and work with the Apple version, and Todd 
Heimarck for his many helpful discoveries about the assembler. 
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The dual nature of this book—it’s both a text and a pro- 
gram—offers you a choice. You can follow the ideas: reading 
through the chapters, studying the program listings, and deep- 
ening your understanding of machine language programming. 

Alternatively, you can type in the LADS assembler and 
experiment with it: learning its features, trying out modifica- 
tions, and using it to write your own machine language pro- 
grams. Appendix A describes how to use the assembler and 
Appendix B provides instructions on typing it in. If you choose 
this second approach, the rest of the book can serve as a ref- 
erence and a map for modifying the assembler. The tutorials 
can also help to clarify the structure and purpose of the vari- 
ous subroutines and subprograms. 

LADS is nearly 5K long, and for those who prefer not to 
type it in, it can be purchased on a disk by calling COMPUTE! 
Publications toll free at 1-800-334-0868. Be sure to state 
whether you want the Commodore, Atari, or Apple disk. The 
disk contains both the LADS source and object code (these 
terms are defined below). To create customized versions of the 
assembler, you will need the source code. It, too, can be typed 
in (it is printed in sections at the end of Chapters 2-9). If you 
don’t type in any of the comments, it is roughly 10K long. The 
Commodore disk contains the various PET/CBM (Upgrade 
and 4.0 BASIC), VIC, and Commodore 64 versions. 


Definitions 
There are several concepts and terms which will be important 
to your understanding of the rest of the book. 

ML programming, and programming in general for that 
matter, is a new discipline, a new art. There are few rules yet 
and few definitions. Words take on new meanings and are 
sometimes used haphazardly. For example, the word monitor 
means two entirely different things in current computerese: (1) 
a debugging program for machine language work or (2) a spe- 
cial TV designed to receive video signals from a direct video 
source like a computer. 

Since there is no established vocabulary, some program- 
ming ideas are described by an imprecise cluster of words. 
When applied to machine language programming, the terms 
pointer, variable, register, vector, flag, and constant can all refer 
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to the same thing. There are shades of difference developing 
which distinguish between these words, but as yet, nothing 
has really solidified. All these terms refer, in ML parlance, to a 
byte or two which the programmer sets aside in the source 
code. In BASIC, all these terms would be covered by the 

word variable. 


Loose Lingo 

Purists will argue that each of these words has a distinct, de- 
finable meaning. But then purists will always argue. The fact 
is that computing is still a young discipline and its lingo is still 
loose. 

Some professors of BASIC like to distinguish between vari- 
ables and constants, the latter meaning unchanging definitions 
like SCREEN = 1024. The address of the start of screen RAM 
is not going to vary; it’s a constant. 

In BASIC, something like SCORE = 10 would be a vari- 
able. The score might change and become 20 or whatever. At 
any rate, the word SCORE will probably vary during the execu- 
tion of the program. In ML, such a variable would be set up as 
a two-byte reserved space within the source code: 


100 SCORE .BYTE 0 0 


Then, anytime you ADC SCORE or ADC SCORE+1, you 
will add to the SCORE. That’s a variable. The word pointer re- 
fers to those two-byte spaces in zero page which are used by 
Indirect Y addressing—like LDA (155),Y—and which serve to 
point to some other address in memory. 

Register usually means the X or Y or Accumulator bytes 
within the 6502 chip itself. As generally used, the word reg- 
ister refers to something hard wired within the computer: a 
circuit which, like memory, can hold information. It can also 
refer to a programmer-defined, heavily used, single-byte vari- 
able within an ML program: 


100 TEMP .BYTE 0 


A vector is very much like a pointer. It stores a two-byte 
address but can also include the JMP instruction, forming a 
three-byte unit. If you have a series of vectors, it would be 
called a “jump table,” and the Kernal in Commodore comput- 
ers is such a table: 
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FFD2 JMP $F252 
FFD5 JMP $A522 
FFD8 JMP $B095 


Thus, if you JSR $FFD2, you will bounce off the JMP into 
$F252, which is a subroutine ending in RTS. The RTS will 
send you back to your own ML code where you JSRed to the 
JMP table. That’s because JMP leaves no return address, but 
JSR does. 

A flag is a very limited kind of variable: It generally has 
only two states, on or off. In LADS, PRINTFLAG will send ob- 
ject code (defined below) to the printer if the flag holds any 
number other than zero. If the PRINTFLAG is down, or off, 
and holds a zero, nothing is sent to the printer. The word flag 
comes from the Status Register (a part of the internals of the 
6502 chip). The Status Register is one byte, but most of the bits 
in that byte represent different conditions (the current action in 
an ML program resulted in a negative, a zero, a carry, an inter- 
rupt, decimal mode, or an overflow). The bits in the Status Reg- 
ister byte are, themselves, individual flags. ML programmers, 
however, usually devote an entire byte to the flags they use in 
their own programs. Whole bytes are easier to test. 

Source code is what you type into the computer as ML 
instructions and their arguments: 


100 *= 864 

110 LDA #$0F ; THIS WILL PUT A 15 ($0F) INTO THE 
ACCUMULATOR 

120 INY ; THIS RAISES THE Y REGISTER 


After you type this in, you assemble it by turning control 
over to the LADS assembler after naming this as the source 
code. The result of the assembly is the object code. If you have 
the .S pseudo-op on, causing the object code to print to the 
screen, you will see: 


100 0360 A9 OF LDA #$0F ; THIS WILL PUT A 15 (SOF) 
INTO THE ACCUMULATOR 

120 0362 C8 INY ; THIS RAISES THE Y 
REGISTER 


Properly speaking, the object code is the numbers which, 
taken together, form a runnable ML program. These numbers 
can be executed by the computer since they are a program. In 
the example above, the object code is A9 OF C8. That’s the 
computer-understandable version of LDA #$0F: INY. It’s gen- 
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erated by the assembler. An assembler translates source code 
into object code. 

A complex assembler like LADS allows the programmer to 
use labels instead of numbers. This has several advantages. But 
it does require that the assembler pass through the source code 
twice. (When an assembler goes through source code, it is 
called a pass.) The first time through, the assembler just gathers 
all the label names and assigns a numeric value to each label. 
Then, the second time through the source code, the assembler 
can fill in all the labels with the appropriate numbers. It doesn’t 
always know, the first time through, what every label means. 
Here’s why: 

100 LDA 4222 

110 BEQ NOSCORE 

120 JMP SOMESCORE 

130 NOSCORE INX:JMP CONTINUE 
140 SOMESCORE INY 

150 CONTINUE LDA 4223 


As you can see, the first time the assembler goes through 
this source code, it will come upon several labels that it doesn’t 
yet recognize. When the assembler is making its first pass, the 
labels NOSCORE, SOMESCORE, and CONTINUE have no 
meaning. They haven’t yet been defined. They are address-type 
labels. That is, they stand for a location within the ML program 
to which JMPs or branches are directed. Sometimes those 
jumps and branches will be forward in the code, not yet 
encountered. 

The assembler is keeping track of all the addresses as it 
works its way through the source code. But labels cannot be de- 
fined (given their numeric value) until they appear. So on the 
first pass through the source code, the assembler cannot fill in 
values for things like NOSCORE in line 110. It will do this the 
second time through the source code, on the second pass. The 
first pass has a simple purpose: The assembler must build an 
array of label names and their associated numeric values. Then, 
on the second pass, the assembler can look up each label in the 
array and replace label names (when they’re being used as 
arguments like LDA NAME) with their numeric value. This 
transforms the words in the source code into numbers in the 
object code and we have a runnable ML program. Throughout 
this book, we'll frequently have occasion to mention pass 1 or 
pass 2. 
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The Two Kinds of Labels 

There are two kinds of labels in ML source code: equate and ad- 
dress labels. Equate labels are essentially indistinguishable from 
the way that variables are defined in BASIC: 


100 INCOME = 15000 


This line could appear, unaltered, in LADS or in a BASIC 
program. (Remember this rule about labels: Define your equate 
labels at the start of the source code. The LADS source code 
shows how this is done. The first part of LADS is called Defs 
and it contains all the equate definitions. This is not only 
convenient and good programming practice; it also helps the 
assembler keep things straight.) 

The other kind of label is not found in BASIC. It’s as if you 
can give a name to a line. In BASIC, when you need to branch 
to a subroutine, you must: 


10 GOSUB 500 


500 (the subroutine sits here) 


that is, you must refer to a line number. But in LADS, you give 
subroutines names: 


10 JSR RAISEIT; GOSUB TO THE RAISE-THE-Y-REGISTER- 
SUBROUTINE 


500 RAISEIT INY; THE SUBROUTINE WHICH RAISES Y 
510 RTS 


This type of label, which refers to an address within the ML 
program (and is generally the target of JSR, JMP, or a branch 
instruction), is called an address-type label, or sometimes a PC- 
type label. (PC is short for Program Counter, the variable 
within the 6502 chip which keeps track of where we are during 
execution of an ML program. In LADS, we refer to the variable 
SA as the Program Counter—SA keeps track, for LADS, of 
where it is during the act of assembling a program.) 

Subprogram is a useful word. LADS source code is written 
like a BASIC program, with line numbers and multiple-statement 
lines, and it’s written in a BASIC environment. The source 
code is saved and loaded as if it were a BASIC program. But if 
you are writing a large ML program, you might write several 
of these source code “programs,” saving them to disk sepa- 
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rately, but linking them with the .FILE and .END pseudo-ops 
into one big chain of source programs. This chain will be 
assembled by LADS into a single, large, runnable ML object 
program. 

Each of the source programs, each link in this chain, is 
called a subprogram. In the source code which makes up LADS 
there are 13 such subprograms—from Defs to Tables—compris- 
ing the whole of LADS when assembled together. This book is 
largely a description of these subprograms, and some chapters 
are devoted to the explication of a single subprogram. To distin- 
guish subprograms from subroutines and label names, the sub- 
program names (like Tables) have only their first letter 
capitalized. Subroutines and labels are all-caps (like 
PRINTFLAG). 

The word integer means a number with no fraction at- 
tached, In the number 10.557, the integer is the 10 since inte- 
gers have no decimal point. They are whole numbers. ML 
programs rarely work with anything other than integers. In fact, 
the integers are usually between 0 and 65535 because that’s a 
convenient range within which the 6502 chip can operate—two 
bytes can represent this range of numbers. Of course, decimal 
fractions are not allowed. But virtually anything can be accom- 
plished with this limitation. And if you need to work with big 
or fractional numbers, there are ways. 

In any case, when we refer to integer in this book, we 
mean a number that LADS can manipulate, in a form that 
LADS can understand, a number which is a number and not, 
for example, a graphics code. For example, when you write 
LDA $15 as a part of your source code, the computer holds the 
number 15 in ASCII code form. In this printable form, 15 is 
held in the computer as the numbers $31 $35 which, when 
printed on the screen, provide the characters 1 and 5 (but not 
the true number 15). For the assembler to work with this 15 as 
the number 15, it must be transformed into a two-byte integer, 
an actual number. When translated, and put into two bytes, the 
characters 1 5 become: $0F 00. We'll see what this means, and 
how the translation is accomplished, in Chapter 5 where we 
examine the subprogram Valdec. It’s Valdec’s job to turn ASCII 
characters into true numbers. 
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The Seventh Bit (Really the Eighth) 

For most of human history, we had to get along without the 0. 
It was a great leap forward for mankind when calculations 
could include the concept of nothing, zero. But now there’s an- 
other mental leap to be made, a private adjustment to the way 
that computers use zero: They often start counting with a zero, 
something humans never do. 

Imagine you are driving along and you’ve been told that 
your friend’s new house is the third house in the next block. 
You don’t say “house zero, house one, house two, house 
three.”’ It makes no sense (to us) to say ‘“house zero.”” We al- 
ways count up from 1. 

But the computer often starts counting from zero. In 
BASIC, when you DIM (15) to dimension an array, it’s easy to 
overlook the fact that you’ve really DIMed 16 items—the com- 
puter has created a zeroth item in this array. 

It’s sometimes important to be aware of this quirk. A num- 
ber of programming errors result from forgetting that unnatural 
(or at least, nonhuman) zeroth item. 

This situation has resulted in an unfortunate way of count- 
ing bits within bytes. It’s unfortunate in two ways: Each bit is 
off by 1 (to our way of thinking) because there is a zeroth bit. 
And, to make things even tougher on us, the bits are counted 
from right to left. Quite a perversity, given that we read from left 
to right. Here’s a diagram of the Status Register in the 6502 
chip, each bit representing a flag: 


7 6 5 4 3 2 10 (bit number within the Status Register byte) 
NV - BDI ZC (flag name) 


As a brief aside, let’s quickly review the meanings of these 
flags. The flag names in the Status Register reflect various pos- 
sible conditions following an ML event. For example, the LDA 
command always affects the N and Z flags. If you LDA #0, the 
Z flag will go up, showing that a zero resulted (but the N flag 
will go, or stay, down since the seventh bit isn’t set by a zero). 
Here’s what the individual flags mean: N (negative result), V 
(result overflowed), - (unused), B (BRK instruction used), D 
(decimal mode), I (interrupt disable), Z (result zero), C (carry 
occurred). 

But in addition to the meanings of these flags in the Status 
Register, notice how bytes are divided into bits: count right to 
left, and start counting from the zeroth bit. 
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This is relevant to our discussion of LADS when we refer 
to bit 7. This bit has a special importance because it can sig- 
nify several things in ML. 

If you are using signed arithmetic (where numbers can be 
positive or negative), bit 7 tells you the sign of the number 
you’re dealing with. In many character codes, a set (up) sev- 
enth bit will show that a character is shifted (that it’s F instead 
of f). In the Atari, it means that the character is in inverse 
video. But a set seventh bit often signifies something. 

One common trick is to use bit 7 to act as a delimiter, 
showing when one data item has ended and another begins. 
Since the entire alphabet can easily fit into numbers which 
don’t require the seventh bit up (any number below 128 
leaves the seventh bit down), you can set up a data table by 
“shifting’’ the first character of each data item to show where 
it starts. The data can later be restored to normal by “lower- 
ing” the shifted character. Such a table would look like this: 


FirstwordSecondwordAnotherword Yetanother. 


BASIC stores a table of all its keywords in a similar fash- 
ion, except that it shifts the final character of each word 
(enDstoPgotOgosuBinpuT...). Either way, shifted characters can 
be easily tested during a search, making this an efficient way 
to store data. Just be sure to remember that when we refer to 
the seventh bit, we're talking about the leftmost bit. 


Springboard 

In the 6502 chip instruction set, there aren’t any instructions for 
giant branches. Some chips allow you to branch thousands of 
bytes away, but our chip limits us to 127 bytes in either direc- 
tion from the location of the branch. Normally, this isn’t much 
of a problem. You JSR or JMP when you want to go far away. 

But as you assemble, you'll be making tests with BNE and 
BEQ and their cousins in the B group. Then, later, you'll add 
some more pieces of programming between the branch instruc- 
tion and its target. Without realizing it, you'll have moved the 
target too far away from the branch instruction. It will be a 
branch out of range. 

This is pretty harmless. When you assemble it, LADS will 
let you know. It will print a bold error message, print the 
offending line so you can see where it happened, and even ring 
a bell in case you’re not paying attention. What can you do, 
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though, when you have branched out of range? Use a 
springboard. 
The easiest and best way to create a giant branch is this: 


100 LDA 15 
110 BEQ JTARGET 


170 JTARGET JMP TARGET; THIS IS THE SPRINGBOARD 


930 TARGET INY ; HERE IS OUR REAL DESTINATION FROM 
LINE 110 


When you get a BRANCH OUT OF RANGE ERROR mes- 
sage, just create a false target. In LADS, the letter J is added to 
the real target name to identify these springboards (see line 170 
above). All a springboard does is sit somewhere near enough to 
the branch to be acceptable. All it does is JMP to the true tar- 
get. It’s like a little trampoline whose only purpose is to bounce 
the program to the true destination of the branch. 

One final note: To make it easy to locate programming 
explanations in the text of this book, all line numbers are in 
boldface. Most of the chapters in the book cover a single major 
subprogram. At the end of a chapter is the appropriate source 
code listing. It is these listings to which the boldface line num- 
bers refer. 

Now, let’s plunge into the interior of the LADS assembler. 
We'll start with the equate labels, the definitions of special ad- 
dresses within the computer. 
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Equates and Definitions 


Let’s get started. Recall that the boldface numbers within the 
text refer to line numbers within the program listings at the 
end of each chapter. The first section of LADS defines many 
of the variables which are used throughout the program. It’s 
called “Defs.” 


Defs for Relocatability 

One of the advantages of advanced assemblers, LADS in- 
cluded, is that they create object code (runnable ML programs) 
which are both relocatable anywhere within a computer’s RAM 
memory as well as transportable between computer brands and 
models. 

If you want to put LADS at $5000 instead of $2AF8, you 
can relocate it quite simply: Just change line 10 in the Defs 
source code file, the first file in the chain of LADS source code 
files. As written, line 10 reads *= 11000 (equivalent to *= 
$2AF8) and that causes the entire object program to start at 
that address. Changing line 10 to *= $5000 relocates LADS 
when you next assemble it. If you include the pseudo-op .D, 
the object program will be saved to disk under the filename 
you specify. 

In the source code of LADS itself, at the end of this 
chapter, the “.D LADS64” in line 30 will create a version of 
LADS on disk by the name of LADS64 and if you later LOAD 
“LADS64”,8,1 it will come into your computer ready to run 
with a SYS 11000. If you change the start address in line 10, 
however, to $5000, and then reassemble the source code, your 
LADS will start with a SYS 20480 (decimal for $5000). 

The numbers generated by the assembly (the object code) 
will be sent to a disk file if you specify that with .D. They will 
be sent into RAM memory if you use the .O pseudo-op. If you 
do turn on storage of object code to memory, LADS will send 
the results of the assembly right into memory during the 
assembly process. This can cause mysterious difficulties unless 
you are careful not to assemble over LADS itself. If you have 
created a version of LADS which starts at $4C00 and you then 
start assembly of some object program at $5000, you'll eat into 
LADS itself. LADS is about 5K long. This, of course, would 
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cause havoc. Using the .D pseudo-op is safe enough, since the 
new ML program assembles to disk. But the .O pseudo-op will 
send bytes right into RAM during assembly. 

Be aware, too, that LADS builds its label array down from 
the start of its own code. During assembly, the labels and their 
values are stored in a growing list beneath the start address of 
LADS (where you SYS to start the assembler). If you send ob- 
ject code into an area of RAM which interferes with this array, 
you'll get lots of UNDEFINED LABEL errors. So be sure you 
know where you’re putting object code if you store it in RAM 
during assembly by using the .O pseudo-op. 


Defs for Transportability 

The only part of LADS which is intensely computer-specific is 
this first file, this first subprogram, called Defs. Here we define 
all the machine-specific equates. (An equate is the same thing 
as a variable definition in BASIC. For example, RAMSTART = 
$2B is a typical equate.) We’ll use the Commodore 64 Defs 
(Program 2-1) as our example. The labels (variable names like 
RAMSTART) for all other computers’ versions of LADS will 
be the same—only the particular numbers assigned to these 
labels will vary. The addresses of pointers and ROM routines 
vary between computer models. 

Defs contains the definitions of all zero page or ROM ad- 
dresses that will be used in the rest of the source code. Once 
again, remember that all zero page equates must be defined at 
the start of the source code (Defs illustrates that rule: Defs is the 
first part of the LADS source code). From lines 60 to 170 we 
define the locations within zero page that we'll be using. In 
line 70 we define the top of the computer’s RAM memory. 
We're going to lower it from its usual spot to fall just below 
where LADS itself starts. 

ST is the location where errors in disk file manipulation 
can be detected. Like all of these zero page equates, this loca- 
tion varies from computer to computer. LOADFLAG (line 90) 
signals the computer that we want to LOAD a program file 
(rather than VERIFY a previously SAVEd program file). This 
flag will be set in the version of LADS which assembles from 
RAM memory (and LOADs in chained source code programs 
from disk). This RAM-based version of LADS will be created 
later in Chapter 11, the chapter on modifying LADS. 
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Disk I/O Information 

The next five definitions show where information is stored just 
before a disk operation. They tell the operating system where 
in memory a filename is located, how long the name is, the 
file number, the file’s secondary address, and the device num- 
ber (8 for disk, 4 for printer, in Commodore computers). 

CURPOS always contains the position of the cursor on- 
screen (as a number of spaces over from the left of the screen). 
We'll use this to format the screen listings. And the final 
machine-specific zero page definition is RAMSTART. It tells 
LADS where BASIC RAM memory starts. It, too, is used in the 
version of LADS which assembles from RAM. 

Why do we need to define these locations if the operating 
system uses them? Because we're going to use a few of the 
built-in BASIC routines to handle the I/O (Input/Output) op- 
erations for us when we need to communicate with a periph- 
eral. To OPEN a file, for example, we need to set up several of 
these pointers. To OPEN file #1, we have to put a 1 into ad- 
dress $B8 (that’s where the file number is held on the Com- 
modore 64). But why not just use LDA #1: STA $B8? Why do 
we want to use these labels, these variable names? 

Programming with pure numbers instead of labels pre- 
vents transportability. It locks your program into your com- 
puter, your model. It’s far easier to change this single equate 
in line 120 to $D2 to make the program run on a PET/CBM 
with BASIC 4.0 than it would be to go through the entire 
source code, changing all B8’s to D2’s. Also, if you buy a 
newer model and they’ve moved things around in zero page 
(they almost always do), making the adjustments will be 
simple. You just use a map of the new zero page and make a 
few changes in the Defs file. 


LADS Zero 
Because LADS needs to use the valuable Indirect Y addressing 
mode—LDA (12),Y or STA (155),Y—it will want to usurp a 
few of those scarce zero page locations itself. Line 170 defines 
a two-byte temporary register called TEMP which will be used 
in many ways. SA is going to function as a two-byte register 
for the LADS Program Counter which will keep track of 
where we are currently storing object bytes during the assem- 
bly process. 

MEMTOP is used in the construction of our label data 
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base. It will always know where the last symbol in our label 
table was stored. All through pass 1 it will be lowering itself, 
making room for new symbols and labels. (This data base will 
later be referenced as we fill in the blanks on pass 2.) 
PARRAY makes that search through the symbol table on pass 
2 easy and fast. It points us through the array. PMEM is used 
as a pointer during assembly from RAM, if you decide to use 
the RAM-based version of LADS described in Chapter 11. The 
uses of all these variables will become clear when we exam- 
ine, throughout the book, the techniques which utilize them. 


Borrowing from BASIC 

The next section, lines 190-320, defines the routines within 
BASIC ROM memory that we’re going to use. Naturally, these 
are particular to each computer brand and model, so we want 
them up front where they can be easily identified and 
changed. 

BASIC always has an entry point called the warm start ad- 
dress, a place where you can jump into it “warmly.” But 
there’s another entry that’s not as gentle. Many BASICs clear 
out RAM memory and radically reset pointers, etc., when you 
first turn on the computer. This is called the cold start entry 
point, and it’s as much of a shock to the computer as walking 
outdoors into a winter wind is to you. We don’t want this 
shock when we return from LADS to BASIC. Instead, we want 
the RAM memory left alone. After all, LADS is in there and 
possibly an object or source program is in there too. So when 
assembly is finished, we want to go into BASIC via the warm 
start entry point. 

KEYWDS is the address of the first BASIC keyword, We'll 
see why we need this address in the chapter on the Indisk 
subprogram. OUTNUM is a ROM routine which is used to 
print line numbers for the BASIC LIST command. We'll use it 
in a similar way to list the line numbers of our source code. 

OPEN, CHKIN, CHKOUT, CLRCHN, and CLOSE allow 
us to communicate with the disk drives and printers. CHARIN 
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is like BASIC’s GET command, PRINT like PRINT. STOPKEY 
sees if you’ve pressed the STOP or BREAK key on your key- 
board. And, last, SCREEN tells LADS where in RAM your 
video memory starts. 

The use of these routines, and the ways that ML pro- 
grams can borrow from BASIC, will be covered in detail as 
they appear in the LADS source files. For now, we only need 
to know that they are defined here, in Defs, and can be 
quickly changed to suit different computers, different BASICs. 

There you have it. We'll be explaining these pointers and 
registers as we come upon them in the explication of LADS. 
Now on to the heart of LADS, the section which evaluates all 
the mnemonics (like LDA) and addressing modes and turns 
them into opcodes (like A9) that are the machine’s language. 
This next section, Eval, is—by itself—a complete assembler. It 
would stand alone. The rest of the sections of LADS add 
things to this core, things like disk management, arithmetic 
and other pseudo-op routines, label interpretation, screen and 
other output, and a host of other niceties. But Eval is the sun; 
the rest of the routines are lesser bodies, planets in orbit 
around it. 


Note: Because the Defs subprogram is computer-specific, 
there are five source code listings at the end of this chapter, 
one for each computer. There are also multiple listings in 
Chapter 5 since it deals with computer-specific peripheral 
communication. However, the majority of chapters will 
have only a single complete listing, followed by the few 
modifications required by the different computers, because 
the majority of LADS’ source code is identical and entirely 
transportable between 6502-based computers. 
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Program 2-5. Defs: Atari 


19@ %= #89096 

119 .D D:LADS.OBJ 
126 ST = #91 
i3@ FNAMELEN 
149 FNAMEPTR 
159 FNUM = $83 
168 FSECOND = $84 
179 FDEV = $85 
18@ CURPOS = 8S 
1996 TEMP = #86 
286 SA = $88 

219 MEMTOP = $8A 
229 PARRAY = #8C 
239 INFILE = 

246 OUTFILE = $6F 
259 PMEM = #AG 

269 RAMFLAG = $A2 
279 BABUF = #9549 
289 SAVMSC = $58 

299 .FILE DsEVAL.SRC 


$89 
$81 
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Eval: 
The Main Loop 


Eval is the heart of LADS. It is the main loop. It starts assem- 
bly at START (line 30) and ends assembly at FINI (line 4250). 
Throughout Eval, JSRs take us away from the main loop to 
perform various other tasks, but like mailmen, all the other 
routines in the assembler start out from Eval, the post office, 
and they all RTS back to it when their work is done. 

For convenience, references to lines within the source 
code listing at the end of the chapter are boldface inside 
parentheses. Also, to distinguish label names like FINI from 
the names of one of the 13 sections of LADS (a subprogram 
like Eval), we'll put label names in all caps, but just capitalize 
the first letter of the subprograms of the assembler. 


Preliminaries, Preparations 

Most programs have a brief initialization phase, a series of 
steps which have to be taken to fix things up before the real 
action of the program can commence. Variables have to be set 
to zero, files sometimes have to be opened on a disk, defaults 
have to be announced to the program. (Defaults are those 
things a program will do unless you specifically tell it not to. 
A game might default to single-player mode unless you do 
something which tells it that there are two of you playing. 
LADS defaults to hexadecimal numbers for printer or screen 
listings and turns off all its other options.) 

At its START, LADS loads the Accumulator with zero and 
runs down through 48 bytes of registers, flags, and pointers, 
stuffing a zero into each one. These flags are all needed by 
LADS to keep track of such things as which pass it’s on, 
whether or not you want a printer listing, or want the results 
of an assembly to POKE into memory, or whatever. This 
initialization fills them all with zero. The label OP is the high- 
est of these registers in memory, so we LDY with 48 and DEY 
down through them (see line 30). 

Let’s take a minute to briefly review our terminology: 

Register usually refers to the Accumulator (A), or the X or 
Y Register in the 6502 chip. It can also mean a single byte set 
aside to temporarily hold something. It’s like a tiny buffer. 

A buffer is a group of continuous bytes used to hold infor- 
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mation temporarily. An input buffer, for example, holds the 
bytes you type in from the keyboard so they can be inter- 
preted by BASIC. The bytes stay there until you type RE- 
TURN, BASIC stores the information into your program, and 
you type a new line into the input buffer. 

A flag is a byte which is either on or off (contains either 
zero or some number) and signifies a ‘’do it” or “don’t do it,” 
yes or no, condition. Of course, a single byte could hold a 
number of flags because each bit could be on or off. In fact, 
the Status Register in the 6502 chip does just that—it’s only a 
single byte, but its bits are flags tested by CMP and the BNE, 
BEQ-type instructions. When you need a flag, though, it’s eas- 
ier to just use a whole byte and test it for zero or not-zero. An 
example of a flag in LADS is the PRINTFLAG. If nonzero, the 
assembler sends a printout of the assembly process to a 
printer. If zero, the printer remains silent and still. You set 
(turn on) the print flag with the pseudo-op .P; otherwise, the 
default is no printing. 

A pointer holds a two-byte address. Many times pointers 
are put into zero page so they can be used by Indirect Y 
addressing: LDA ($FB), Y gets the byte from the address held 
in $FB and $FC (seen as a single, two-byte-long number). If 
OOFB 00 
OOFC 15 


(remember that the 6502 expects these numbers to be back- 
ward; this two-byte group means $1500) then LDA ($FB),Y 
will load the A register (the Accumulator) with whatever byte 
is currently in address $1500. We can set up our own pointers. 
If they’re not in zero page, they’re likely holding some im- 
portant address which a program needs to remember. In 
LADS, ARRAYTOP is such a non-zero-page pointer; it tells 
LADS where to start looking through the label table for a 
match. We'll look into this when we get to the subprogram 
Arrays. 


Cleaning the Variables 

At its start LADS must initialize its variables. If we didn’t fill 
them with zero, there could be some other number in these 
bytes when we fire up LADS and that could cause unpredict- 
able results. Then (80) we get the low byte of the start of 
LADS (using the pseudo-op #<START) and put it in the low 
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byte of MEMTOP (used by the Equate subprogram). We also 
put it into the pointer BASIC uses to show how much RAM 
memory it has available, BMEMTOP (line 70 in Defs). And, fi- 
nally, put it in ARRAYTOP. ARRAYTOP will show where the 
LADS’ data base of labels starts in memory (it builds down- 
ward from the location of LADS). 

Then we take the high byte of START and put it into the 
high bytes of these three pointers. 

Now for the defaults. There is only one. We want listings 
to be in hexadecimal unless we specifically direct the assem- 
bler otherwise with the .NH, no hex, pseudo-op. So we put #1 
into the HXFLAG. The rest of the flags are left at zero. If you 
want different defaults, put #1 into some of the other flags. 
For example, if you usually want to watch the results on 
screen during an assembly, just create a new line: 185 STA 
SFLAG. This will cause a screen disassembly every time you 
use LADS. Putting this default into LADS itself merely saves 
you the time of adding the .S pseudo-op if you generally do 
want to watch the assembly onscreen. That does slow up the 
assembler, but with shorter programs, you might not notice 
the difference. 


Where’s the Source File? 

LADS needs to know what you want to assemble. If you’re 
using the RAM-based version of LADS (see Chapter 11), 
there’s no need to give a filename to LADS; just SYS, and 
LADS will assemble what’s already in RAM. But if you’re in 
the normal LADS mode, assembling from a disk file, you'll 
have to announce which file. LADS looks at the upper left- 
hand corner of the screen to read the filename (190). If it finds 
a space #32, it checks for another space (310) before giving up. 
This way you can have continuous names like FILENAME as 
well as two-word names like FILE NAME. Whatever it finds 
onscreen, it stores in the buffer FILEN. It also takes care of 
characters which are below the alphabet in the ASCII code by 
adding 64 to them if they fall below 32 (240). The Atari ver- 
sion asks for the filename from the keyboard in the manner of 
a BASIC INPUT command. 

When the filename is stored in the buffer, we JSR to 
Open1, the subprogram which handles all I/O, all commu- 
nication with peripherals. In this case, communication will be 
with the disk drive. 
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After the file is opened for reading, we JSR to another 
subprogram, Getsa, the get-start-address routine. It just looks 
for *= (the start address pseudo-op) and, finding it, returns to 
Eval where the number following that symbol will be eval- 
uated. If it doesn’t find a *=, that can only mean two things. 
Either there is no program on the disk by the name you put 
onscreen or LADS did find the program, but no starting ad- 
dress was given as the first item in the source code. Both of 
these situations are capable of driving LADS insane, so Getsa 
aborts back to the safety of BASIC after leaving you a message 
onscreen. 

This SMORE routine (370) will be used again when we’ve 
completed the first pass of the assembly process. The first pass 
goes through the entire source file, storing all the names of the 
labels and their numeric values into an array. 

When we finish making this collection of labels, our label 
array, we've got to make a second pass, filling in the opcodes 
and replacing those labels with numbers. It’s here, at SMORE, 
that we jump to start the second pass. 

A zero is given to ENDFLAG to keep the assembler run- 
ning. If the ENDFLAG is left up, is not zero, the assembler as- 
sumes it has finished its job and stops. 

The initialization is completed with a JSR to the sub- 
program Indisk which pulls in the number you wrote as the 
starting address following *=. This number is left in LADS’ 
main input buffer called LABEL. Before dealing with this num- 
ber, though, we check to see if we’re on the first pass (410) 
and, if so, print the word LADS onscreen after a JSR PRNTCR 
which prints a carriage return. Routines beginning with PRNT 
like PRNTSPACE and PRNTLINE are all grouped together in 
the subprogram Findmn. They're used by most of the sub- 
programs and print various things to the printer or screen. 

Now we need to put the starting address into the pointer 
SA which always holds the current target for any of our 
assembled code during execution. If the HEXFLAG is up, that 
means you wrote something like *= $5000 and hex numbers 
are translated by the subprogram Indisk before it RTSs back to 
Eval. Decimal numbers like *= 8000, however, are not trans- 
lated into the two-byte integers that ML (machine language) 
works with, so we need to send decimal numbers to Valdec 
(another subprogram) to be turned into ML integers (610). The 
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pointer called TEMP is made to point to LABEL so Valdec will 
know where to look for the number. 

It’s important to realize that numbers coming in from the 
disk or from RAM memory are in ASCII code, as characters, 
not true integer numbers. That is, the characters in a number 
like 5000 will come into the LABEL buffer as they appear in 
RAM or on a disk file. 5000 would be (in hexadecimal nota- 
tion) 35 30 30 30; these are the character codes for 5-0-0-0. It’s 
Valdec’s job to transform this into 00 50, an ML integer. When 
we get to Valdec, we'll see just how this is done. It’s a useful 
technique to learn since any numbers input from a keyboard 
will also be in this ASCII form and will need to be massaged a 
bit before they'll make sense to ML. 


Remembering the Start Address 

When, at STAR1, we finally have an ML integer in the little 
two-byte variable called RESULT, we can transfer the integer 
to SA. And we put the integer into the variable TA, too, so 
that we'll have a permanent record of the starting address, SA 
will be dynamic; it will be changing throughout assembly to 
keep track of the current assembly address. It will be LADS’ 
Program Counter. TA will always remember the original start- 
ing address, 

By this time you might be thinking that all this is hard 
to follow. TA and RESULT and LABEL don’t mean much at 
this point. We’ve plunged into Eval, the most condensed, the 
most intensive, section of the entire program. As the main 
loop, Eval will send tasks to be accomplished to many sub- 
routines, in subprograms which we’ve not yet examined. It’s 
like landing in a strange city without a map. You see street 
signs, but they mean nothing to you yet. But this is one of the 
best ways to learn if you can be patient and ignore the tem- 
porary gaps in your knowledge and the momentary sensations 
of confusion. 

We're gradually building a vocabulary and mapping out 
some of the pathways which make up the language LADS and 
the ways the ML works. The subprograms are, by and large, 
easier to follow. They’re more self-contained. But bear with 
this tour through Eval. It makes what follows easier to grasp 
and offers a foundation—however unconscious at this point— 
for a deeper appreciation of the ways that ML does its magic. 
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The Main Routine 

Every line of source code which LADS examines begins with 
STARTLINE (690). The ML between STARTLINE and P (5520) 
is, in effect, an assembler. The rest of the routines and sub- 
programs deal with the niceties, the auxiliary efforts of the 
assembler—pseudo-ops, built-in arithmetic routines, I/O, 
printout formatting, and so forth. 

In fact, this section of LADS is based on the BASIC 
assembler, the Simple Assembler, from my previous book, Ma- 
chine Language for Beginners. If you want to see how a large 
BASIC program can be translated into ML, you might want to 
compare the Simple Assembler to the rest of Eval. There are 
some comments within the listing of LADS’ source code which 
refer to the BASIC lines within the Simple Assembler (see 
lines 3270 and 3410 for examples), and a number of the labels, 
starting at 4670, also refer to their BASIC line number equiva- 
lents in the Simple Assembler. L680 is a label to LADS, but is 
also a reference to an equivalent line, 680, in the BASIC of the 
Simple Assembler. 

It’s LADS’ job to take each line in the source code and 
translate it into runnable ML object code. LADS would take 
the source line 10 LDA #15 and change the LDA into 169 and 
leave the 15 as 15. The value 169 is the ML opcode for the 
Immediate addressing mode of LoaDing the Accumulator. 
Then LADS would send these two bytes of object code, 169 
15, to any of four places depending on what destinations you 
had specified as pseudo-ops in the source code. The .D 
pseudo-op would send 169 15 to a disk file, .P to the printer, 
.S to the screen, and .O directly into RAM memory. 

When LADS first looks at at each source code line, 
STARTLINE checks the ENDFLAG to be sure it’s safe to con- 
tinue. If ENDFLAG is zero, we BEQ to the JSR to Indisk. 
(Otherwise, the program would go down to FINI and close up 
shop, its work finished.) 

Indisk is the second largest subprogram, and LADS will 
be gone from Eval a long time by the computer's sense of 
time. For us, this detour happens in a flash, and a lot happens. 
Indisk can even JSR into other subprograms, but we'll see that 
in a later chapter. All we need to realize now is that each 
source line needs to be pulled onto our examination desk so 
LADS can pick it apart and know what to assemble. 
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Our examination desk is the buffer called LABEL. First a 
line of source code is laid out on the desk. To prepare for the 
exam, we put down the EXPRESSF(lag) and the BUFLAG, al- 
though they might be raised again during the evaluation to 
come. EXPRESSF tells LADS whether the expression following 
a mnemonic like LDA is a label or a number. It signals the dif- 
ference between LDA SPRITE and LDA 15. BUFLAG tells 
whether or not there is a REM-like comment attached to the 
line under examination. If there is a comment, we'll want the 
assembler to ignore the remarks, but the screen or printer 
should nevertheless display them. 

Now, as we often will, we check PASS (760) to see if it’s 
the first or second time through the source code. On the first 
pass, we’re not going to print things to a printer or the screen, 
so we'd jump to MOE4 and ignore the next series of printouts. 

But if it’s the second pass, we check the SFLAG, the 
screen flag, to find out if we should print to the screen. If the 
answer is yes, we print a line number, a space, the SA (current 
address), and another space. Don’t worry about LOCFLAG 
just yet. 

Now we want to know if there’s any math to do. 
PLUSFLAG is up when the line contains something like this: 
LDA SCREEN +5. If it does, we briefly detour to the sub- 
program Math to replace SCREEN +5 with the correct, cal- 
culated number. 


The Inner Core 

Now we're at the true center, the hot core, of LADS: Line 900 
is the pivot around which the entire structure revolves. This 
JMP to Findmn accomplishes several important things and sets 
up the correct pathways for the assembler to follow in the fu- 
ture. Findmn finds a mnemonic. Say LADS is examining this 
line: 

10 LDA 15 


After Findmn does its job and JMPs back to Eval, there would 
be a 1 in the TP register (it’s like a BASIC variable, called TP 
for ““type’’). And there would be a 161 in the OP, for opcode, 
register. 

That 161 is not the number we'll want POKEd into mem- 
ory. 161 is the right number for the LDA (something,X) 
addressing mode, but it’s wrong for the other modes, includ- 
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ing LDA 15. Nevertheless, any LDA will first get a 161, the 
base opcode. It’s the lowest possible opcode for an LDA; the 
other LDA addressing modes can be calculated by adding to 
161. LDA 15 is Zero Page addressing and its opcode is 165. 
Eval’s main job is to start off with the lowest, the base opcode 
for a particular mnemonic like LDA, and then make adjust- 
ments to it when the correct addressing mode is detected. Eval 
establishes the addressing mode when it examines the line 
and looks for things like the # symbol and so forth. As we’ll 
see, this examination will modify the OP number until the 
correct opcode is calculated. 

For now, though, it’s enough that we return from Findmn 
with a base opcode number, something reliable to work from, 
stored in the variable OP. By the way, Findmn gets these 
numbers, TP and OP, from a table in the subprogram Tables. 
We'll look at it at the very end of our exploration of LADS in 
Chapter 9. Tables is where all the constants are stored. 


When No Match Is Found 

Sometimes Findmn won’t find a match when it looks through 
the table of mnemonics in the subprogram Tables. This means 
that the first word in the line under examination was not a 
mnemonic. If this happens, Findmn returns (via a JMP) back 
into Eval where labels are analyzed. Eval then knows that this 
first word isn’t one of the 6502 commands. Instead, it must be 
a label. 

Labels in this first position in a line can be of two types: 
address labels and equate labels. An address label identifies a 
location within the program that will be the target for 
branches, jumps, JSR, etc. It’s like giving names to subroutines 
so you could later JSR PRINTROUTINE. Here’s an example: 
100 START LDA #0 

After the assembler finishes assembling this, we’ll have: 
100 3A00 A9 00 START LDA #0 

The OP 161 has been changed to 169 (the hex number A9 
in the example above), and we'll see how that was arrived at 
presently. But START has had no visible effect. It’s just listed 
there, but doesn’t affect the A9 or 00. START is a place 
marker. It hasn’t been ignored. During the first pass, LADS 
stored START in an array along with the 3A00 address. That’s 
why START can be called an address label. This is very much 
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the way that BASIC reads a variable name, sticks it in an ar- 
ray, and puts the value of the variable up there with the 
name. 

On pass 2, when all these labels are needed, the correct 
address will be there, waiting in the array. If LADS comes 
across a JSR START or a BEQ START, it will be able to search 
the array and replace the word START with the right number, 
the address. 

The other possible kind of label is the equate label. It 
looks like this: 


1100 SCREEN = $0400 


It, too, is stored during the first pass and looked up dur- 
ing the second pass. But the equals sign shows that we should 
remember the value on the other side of the = symbol, not 
the address of the location of the label. In this example, when- 
ever we want to store something onscreen, we don’t need to 
calculate the correct address. $0400 is the first byte in screen 
memory (on the Commodore 64 in this example). So we can 
just STA SCREEN to put whatever is in A into the upper left- 
hand corner of the screen. Or STA SCREEN + 200, or STA 
SCREEN + 400, or whatever. (Adding numbers to SCREEN 
will, in this case, position our A lower on the screen.) 

It’s here that we decide whether we're dealing with one of 
the labels or with an ordinary mnemonic. If we JMP back from 
Findmn to EVAR (920), the first thing on the source code line 
was a mnemonic. If we JMP back from Findmn to EQLABEL, 
it wasn’t a mnemonic (hence it’s a label). EVAR evaluates the 
argument, the 15 in LDA 15. EQLABEL evaluates the other 
kind of argument, the label SPRITE in LDA SPRITE. 


Simple and Other Types 

Some of the mnemonics are quite straightforward. They’ve 
got no argument at all: INY, ROL, CLC, DEC, BRK, RTS, etc. 
There’s no argument to figure out, and all of these self- 
contained instructions have the same addressing mode, Im- 
plied addressing. Fully 25 of the 56 mnemonics are of this type. 
We've called them type 0 (see the chapter on the Tables sub- 
program for an explanation of the types), and so Findmn puts 
a 0 into the TP variable. Our first step in the evaluation of any 
argument (920) is to check the TP, and if it’s 0, go to the type 
1 (meaning only one byte, the opcode itself) area. There, the 
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single byte will be POKEd and printed if you’ve requested that 
with your pseudo-ops. And then we can go on to fetch a new 
line. 

If it’s a more complicated addressing mode, though, we 
continue evaluating, comparing it to type 3 (940). If you want, 
you can look up the mnemonics and the parallel types and 
ops tables in the Tables subprogram. Type 3’s are the bit-mov- 
ing instructions ROL, LSR, ROR, and LSR. They have a pat- 
tern of possible addressing modes in common. (It’s this 
common pattern of addressing modes which underlies these 
types. They share the same potential addressing modes and 
can be evaluated and adjusted as a category rather than 
individually.) 

In any case, we turn them into type 1 and then look at 
the fourth position in the storage buffer LABEL. If we could 
peer into this buffer, we might see either: 


ASL 
or 
ASL 1500 


That bare ASL is not an implied address like INY and 
CLC and the rest of those self-contained instructions we dis- 
cussed above. These bit-moving instructions (ASL, ROR, etc.) 
are just like type 1 (LDA, etc.) with this single exception: They 
can have a special addressing mode all their own called Accu- 
mulator addressing. It’s a rare one. In this mode, ASL would 
Arithmetic-Shift-Left the number in A, the Accumulator. 

The point to grasp here is that, rare as a nude ASL is, 
we've got to include it in the assembler. So we check to see if 
there is a zero in the fourth position in our buffer, LDA LA- 
BEL+3. A zero means end-of-line. So we can detect from a 
zero that there is no argument and, hence, this is a case of 
Accumulator addressing. If it is, we need to add 8 to the base 
opcode for these bit-movers and then jump to the type 1 exit. 
If it isn’t, we’ve already turned it into a type 1 (970) and from 
here on, we'll treat it as a member of that family. In effect, 
type 1’s can have several addressing modes, so we must eval- 
uate the mode. We go to EVGO. 


Fat Y Loops 
Before entering most ML loops, you'll first LDY #0. Y often 
functions as a counter, so it’s set to zero, and then INY occurs 
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at the end of the loop. But some loops require that we INY at 
the start or at least early within the loop. In such cases, we 
must LDY #255 before entering the loop. The first event 
within the loop is an INY, so in effect, Y becomes 0 right off 
the bat. When you increment 255, you get a zero. 

EQLABEL is where we determine what kind of label 
we're dealing with. On the first pass, we don’t care. All labels 
must be stored in our label table array for later reference on 
pass 2. On pass 2, though, we must go through the test in 
EVX1 (1090). And it’s one of those fat Y loops that start off 
with a bloated Y Register. We put 255 into Y at the start. 

We load the first character in the LABEL buffer. If it’s zero 
(end of the line), there wasn’t any argument. There should 
have been. This is a mistake. By this time, there has to be an 
argument. We’ve already eliminated the only addressing types 
that have no argument: Implied (type 0) and Accumulator (a 
variant of type 3). If there’s no argument, the source code is 
defective. There should be an argument. We’ve got to print an 
error message. 

NOAR is tucked away at line 520 of the Equate sub- 
program. We'll get to it later. It just prints a ‘no argument” 
error message. But we should clear up the little mystery 
surrounding the bounce we just took. We BEQ GONOAR 
(1110) only to JSR NOAR (1320). Why? This is one of those 
springboards we discussed in Chapter 1. 

The B instructions, the branchers like BEQ, can move us 
only 127 bytes in either direction, forward or backward, from 
their location. This is sometimes not far enough. LADS will 
alert you to this if you should try to branch further than you 
can. It will print BRANCH OUT OF RANGE and ring the bell. 
The easiest solution to this problem is to simply have the 
branch go to a nearby JMP or JSR. They can fly off to any ad- 
dress in the computer. Have them act as springboards, bounc- 
ing you to your actual target. 

The alternative is to move your target closer to the 
branch. The target is probably a subroutine. But moving a sub- 
routine is often a lot more trouble than simply creating a 
springboard. 

Back to the evaluation (1120). If there is an argument, we 
move it up to another buffer called FILEN. Then we check for 
the blank character, 32, before leaving this loop. The label 
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name gets moved up to FILEN for further analysis. Then we 
INY and look at the next character. 


Which Kind of Label? 
If the first thing after a blank character is =, we’ve got an 
equate label like: 


100 NAME = $500 


If it is an equate label, we ignore it because we’re on the 
second pass here. Line 330 sends us over this section if it’s the 
first pass. There’s no need to pay any attention to equate la- 
bels on the second pass, so we jump to INLINE, the prepara- 
tions for getting a new line to evaluate. 

But it might be the other type of label, an address label 
like: 

100 START LDA #15 


On pass 2 we can also ignore START, the label part of this 
line. Both types of labels have already been safely stored in 
our array during pass 1. Nevertheless, following the address- 
type label is some code we cannot ignore. On pass 2 LADS 
must assemble that LDA #15. 

NOTEQ (not equate type) moves the address label up to a 
buffer called FILEN while at the same time moving the LDA 
#15 over to the start of the LABEL buffer. It’s doing two 
things at once. This is how these buffers look before NOTEQ 
(1180-1200): 

LABEL START LDA #1500000000000 
FILEN 000000000000000000000000 


and after NOTEQ: 


LABEL LDA #150A #1500000000000 
FILEN START0000000000000000000 


START is up at FILEN and can be printed out later for a 
listing. But what good is that mess in the LABEL buffer? It will 
work perfectly well because that 0 in the eighth position is the 
delimiter. It tells LADS to ignore any random characters 
following it. Remember that these numbers are stored in mem- 
ory as ASCII code, not as literal numbers. 15 would be stored 
as 49 53. 150 (the number 150) would be stored as 49 53 48. 
But a different kind of 150, where that final 0 is a true zero, a 
delimiter, would be stored as 49 53 0. So when we go to look 
at and assemble the information in LABEL, LADS will only 
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work with LDA #15 and ignore the 0A #150000, etc., the 
remnants of the old line. All is now ready for the assembler to 
take a look at a mnemonic and its argument, so we JMP to 
MOE4 (1310). If this had been pass 1, we would have by- 
passed all this and leapt from 1070 right down to 1330, where 
we go to the subprogram Equate, which stores labels and their 
values in the label table array. But both pass 1 and pass 2 
must continue to work out the addressing modes by going to 
MOE4. Why should we need to worry about addressing 
modes on pass 1 since LADS doesn’t POKE anything into 
memory or save anything to disk during pass 1? 

LADS must keep an accurate PC (Program Counter) dur- 
ing pass 1 to know what value to assign to address type la- 
bels. Otherwise, the address labels would be inaccurate: 


10 START INC 15 
20 LDA 15 

30 BEQ FINISH 
40 JMP START 
50 FINISH RTS 


Notice that both INC 15 and LDA 15 are Zero Page 
addressing. They occupy two bytes in memory. But they could 
have been Absolute (LDA 1500) addressing, or other modes 
which use up three bytes. LADS has no way of knowing, by 
reading LDA or INC alone, whether to raise the program 
counter by two or by three. All this wouldn’t matter much ex- 
cept for that label FINISH in line 50. It has to be assigned its 
proper address during pass 1 and stored in the array. That 
means LADS needs to know exactly how many bytes it is 
from START to FINISH. 

Consequently, LADS has to check out the arguments of 
INC and LDA to see whether they’re addressing modes using 
up two or three bytes. This Program Counter is kept in a vari- 
able in LADS called SA. It’s constantly changing during both 
passes of the assembly, but it is used during pass 1 to assign 
numbers to address labels like START and FINISH. 

We'll deal with the next routine, EVEXLAB (1360), shortly. 
Let’s go first to MOE4 and see how LADS analyzes 
arguments. 


We’ve Been Here Before 
Recognize MOE4 (900)? We already discussed it. It JSRs to 
FINDMN and JMPs back to EVAR (920) having recognized a 
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6502 mnemonic or JMPs to evaluate a label if it didn’t rec- 
ognize a mnemonic. In our example, it will find LDA #15 this 
time, JMP to EVAR, and end up going to EVGO (from 950), 

Here at EVGO, LADS has to decide whether it’s dealing 
with a normal numeric argument like #15 or an expression la- 
bel, a word like SOUND. Imagine that we'd started off by de- 
fining the label SOUND: 


10 SOUND = 15 


When we later wanted to indicate 15, we could substitute 
the word (LDA #SOUND) for the number (LDA #15). 

EVGO distinguishes labels from numbers by using the 
ASCII code. In this code, letters of the alphabet have a nu- 
meric value 65 (the letter A) and go up from there. Thus, if 
the character in the fourth position (see line 1490) is less than 
65, if it triggers a BCC, we don’t raise the EXPRESSF(lag). 
That flag indicates a nonnumeric expression. In other words, 
the expression has a letter of the alphabet so it must be a la- 
bel. Similarly, EVMO2A raises the Y offset and tests the fifth 
character. If it’s a zero, we've got a single-letter label, like P 
(1540). Meanwhile, we’re moving the label up to a buffer 
called BUFFER. And, again, we check for a character with a 
value lower than 65. 

EVMO2 (1600) continues to move the label from one 
buffer (LABEL) to another (BUFFER). It only stops when it 
finds a zero indicating the end of the line. Note that both 
number expressions (arguments) like #15 as well as label ex- 
pressions like #STOOL are moved from the LABEL buffer up 
to the BUFFER buffer. The only distinction between them is 
signaled by the raising of the EXPRESSF(lag) when there’s a 
label rather than a number. For numbers, EXPRESS stays 
down, stays 0. 


Hex Numbers Are Already Evaluated 

EVMO3 (1660) puts the label’s size, the number of characters 
in the label, into the variable ARGSIZE and checks to see if 
the HEXFLAG is up. The HEXFLAG is sent up in the sub- 
program Indisk if a $ symbol is noticed as a line is streaming 
into LADS. So if HEXFLAG is BNE, not equal to zero, it’s up 
and we can jump right down to L340, which starts to figure 
out the addressing mode. If the EXPRESSF is up, that means a 
word label, not a number, so we have to go to EVEXLAB to 
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get the number to substitute for the label. Otherwise, we've 
got a decimal number to work with as our argument (1730). 

The whole function of lines 1730-1840 is to have the 
variable TEMP pointing to the first ASCII number in the label. 
That’s why we keep INCrementing TEMP until we point to a 
character that is not BCC, less than the 0 ASCII character (48) 
in line 1830. Then we have to test for the ( left parenthesis or 
, comma character. If it is one of them, it can put in a true 
zero as a delimiter. 

When the number is properly set up, it is analyzed by the 
Valdec subprogram, which turns this ASCII string of numbers 
into an ordinary ML two-byte integer. 

If, however, we were sent to EVEXFLAG (from 1710), it 
checks for something less than an alphabetic character (such 
as a ( or a # symbol). When it locates the first alphabetic 
character, it stores it into the variable WORK and JSRs off to 
the subprogram Array where the stored labels will be looked 
through. Then it joins up again with the numeric expressions 
by going to L340 for addressing mode evaluation. 


How Is It Addressed? 

This is the final job the assembler must perform—distinguish- 
ing between Immediate (LDA #15), Absolute (LDA 1500), 
Zero Page (LDA 15), Indirect Y (LDA (15),Y), and the other 
addressing modes. Recall that we’ve already eliminated nearly 
half the possibilities by previously handling type 0, the self- 
contained, implied ones like CLC and INY. What’s left is to 
check for # and ( symbols and to see how big the argument is. 
That tells us if our argument (the expression) calls for Zero 
Page addressing or not. 

First off, LADS checks for the # character (2130) and, 
finding one, goes to the IMMED routine to handle Immediate 
addressing. Next it looks for the ( character. Finding one of 
those, it goes off to the INDIR routine to deal with Indirect 
addressing. 

Failing to find either of these symbols, it loads in the type 
variable, TP, and looks to see if it’s an 8. All the B instruc- 
tions, the branches like BNE and BCC, are grouped together as 
type 8. Finding a type 8, LADS goes to the REL subroutine to 
handle Relative addressing. 

From here (line 2220) to the end of Eval, there will, from 
time to time, be adjustments made to the OP variable which 
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are neither easy to explain nor easy to immediately under- 
stand. They’re based on the logic of the interrelationships be- 
tween the various addressing modes. For example, if we’ve 
reached this point (2220) without branching to one of the 
routines like IMMED, INDIR, or REL, we now need to add 8 
to the opcode value. Why? It just works that way. If you’re 
truly interested, study the table of opcodes and you'll begin to 
notice certain similarities between the opcode for LDA ab- 
solute and INC absolute, etc. It’s not necessary to work all this 
out. For a detailed discussion of the logic of these adjustments 
to OP, see the explanation of the Tables subprogram in Chap- 
ter 9. 

At any rate, INDIR looks at the character of the argument 
in BUFFER and sees if it’s a ) symbol. If not, and it’s type 1, 
we add 16 to OP. If we have a type 6, we know we've got an 
indirect JMP, so we go there. Otherwise, we go to TWOS, 
where two-byte addressing modes, like LDA (15),Y, are 
handled. 

JIMMED (2420) is one of those springboards to handle a 
BRANCH TOO FAR for an unassisted B instruction with its 
127-byte reach. 


The Hardest Part of LADS 

REL handles the B group. This was the hardest part of LADS 
for me to write. For some reason, I kept hoping for a simple 
way to test and translate forward and backward branches. No 
simple way presented itself. There may be a more clever solu- 
tion than the one you'll see described below, but I couldn’t find 
it and had to go on. 

REL first checks PASS. On pass 1, we simply go directly to 
TWOS. On pass 2, though, we look at RESULT. RESULT is a 
two-byte variable which holds the integer form of all argu- 
ments—labels, hex, or straight decimal. They’re all left in RE- 
SULT by the various subprograms, Array, Indisk, and Valdec, 
which translate labels, hex ASCII, and decimal ASCII. These 
three possible original forms of the arguments are translated 
into two-byte integers that can be POKEd into memory or 
saved on disk as parts of an ML program. 

If we’re on pass 2, we look at RESULT and now calculate 
the correct argument for a branch instruction. It requires that 
LADS first determine whether we're branching backward or 
forward in memory. It does this by subtracting SA (the Program 
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Counter, the current address, the address of the B instruction to 
which its argument will be relative). It subtracts SA from RE- 
SULT, the argument of the B instruction: 


100 1000 AO 00 START LDY #0 


110 1002 C8 LOOP INY 

120 1003 FO 03 BEQ END 
130 1005 4C 02 10 JMP LOOP 
140 1008 60 END RTS 


The target, END, of the BEQ above is address 1008. The 
location of the PC at the BEQ is 1003. MREL (2470) first sub- 
tracts the PC in variable SA from the target’s address. Remem- 
ber that RESULT holds the correct integer after the Array 
subprogram looked through LADS’ array and found the label 
END. So 1008 minus 1003 gives 5. 


BPL and BMI 

BCS tests the result of the subtraction—the carry is still set if 
the target is higher than SA and, consequently, we've got a 
branch forward. We BCS FOR. Otherwise, it’s an attempt to 
branch backward in memory, and we test the high-byte result 
of the subtraction (the number in the accumulator) against 
$FF. That high byte must equal $FF, or we’ve branched too far 
and we go to the error-message printout routine (2570). Then 
we check the low-byte result of the subtraction (which was 
pushed on the stack temporarily in line 2500) to see if it’s a 
correct value. The PLA (2580) will set the N flag in the Status 
Register if the number is greater than 127. We want it to be, 
since this is a backward branch. If this flag is not set, we BPL 
to the error message. Otherwise, we jump to the concluding 
routine, setting up a correct branch. 

The FOR routine handles forward branches in a similar 
way, going to the error routine if the high byte is not zero 
(2610) or if the low byte has the seventh bit set (proving it’s 
greater than 127, an incorrect forward branch). 

Let’s pause for a minute to see what BPL and BMI do for 
us in this test. In binary, $80 looks like this: 10000000. We 
don’t care about the bits in the positions where the zeros are. 
We're only interested in the leftmost bit, the so-called seventh 
bit. Note, too, that PLA affects the N and Z flags in the Status 
Register. 

After a PLA of 10000000, BPL would not branch any- 
where, but BMI would. It would mean that the seventh bit is 


45 


Eval: The Main Loop 


set, the “minus sign” in signed arithmetic was found. The sign 
in signed arithmetic is held in the seventh bit. 1XXXXXXX 
would signify a negative number, OXXXXXXX a positive num- 
ber. (There’s a connection here with the fact that forward 
branch arguments can range from $00 to $7F, and backward 
branches from $FF down to $80.) 

Now some people will point out that there are eight bits in 
a byte, and we keep referring to the seventh bit when we're 
talking about the eighth. Recall that, in computing, much 
counting begins with the zeroth bit. A byte can hold only the 
numbers 0-255. The lowest number it can hold is a zero. But 
that still means that there are 256 possibilities, 256 possible 
states for a byte: 1-255 plus 0. 


Signed Arithmetic Branching 
If all this seems an unnecessary detour into messy detail, con- 
sider how Relative addressing uses signed arithmetic to cal- 
culate where it should branch. When the 6502 chip comes 
upon one of the B branch instructions like BNE, it looks at the 
argument in a unique way. If the number is higher than 127, it 
knows it must go backward. If lower or equal, it must go for- 
ward. That’s why you cannot branch further than 128 back- 
ward or 127 forward. The argument can’t use the entire byte 
to hold a number—the seventh bit must be reserved to hold 
the plus or minus sign. Remember, if the seventh bit is set, it 
means minus. If clear, it means plus. BPL (Branch if PLus) is 
triggered when the seventh bit is clear. BMI responds to a set 
(1) seventh bit. 

Take a look at the assembly in the example above. Line 
120 shows that BEQ END became the opcode FO and the argu- 
ment is 03. 03 will take us to END because all branches are cal- 
culated from the address of the mnemonic following the branch 
instruction. Count three from address 1005. You hit END. 

A branch backward, too, counts backward from the address 
of the mnemonic following the B instruction. All branches count 
from their own PC location plus 2. Look at a branch backward: 


40 1000 AO 00 START LDY #0 

50 1002 C8 LOOP INY 

60 1003 DO FD BNE LOOP 
70 1005 60 END RTS 


Here line 60 is branch backward, but the argument, $FD, is 
pretty strange. $FD looks like this in binary: 11111101. So the 
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seventh bit is set signifying minus, a backward branch. $FD is 
253 decimal. $FF would be —1, $FE would be —2, and $FD is 
—3. From address 1005, —3 lands us at 1002, LOOP, where 
we want to land. Luckily, we needn’t perform these calcula- 
tions. LADS will handle all branch arguments. But you might 
want to use BPL/BMI branches as well as signed arithmetic in 
your ML programming. It’s sometimes worth knowing the de- 
tails of how these things are handled by the microprocessor. 

One final adjustment needs to be made before LADS can 
POKE in the correct argument for branches. This adjustment 
takes place at RELM, where both forward and backward 
branches end up, unless they were found to be out of range. 

After the low byte of SA was subtracted from the low 
byte of RESULT (2500), we pushed it onto the stack with PHA. 
That’s sometimes a convenient place to stuff something you 
want to set aside for a minute while you perform other 
calculations. You could STA A or STA TEMP or put it in other 
temporary holding variables, but PHA is safe as long as you 
remember to PLA to leave the stack clean. You don’t want to 
keep PHAing, or your program will soon fill up the stack, 
resulting in an OVERFLOW error and a machine-wide col- 
lapse. The 6502 chip won't ignite, the CRT screen won’t melt, 
but the program will grind to a halt. 

When we have a BRANCH OUT OF RANGE error we 
are going to go down to the DOBERR routine at line 5800, but 
we do need to PLA in lines 2560 and 2620 to keep the stack 
clean. 

If there is no error, we’ve saved the result of the subtrac- 
tion of the low bytes (it sits in the low byte of the RESULT 
variable). That’s the number we really care about anyway. A 
single byte is all that can be used as a branch argument. 

To make it a correct branch argument, we’ve got to sub- 
tract 2 from it. This, you recall, is because all branches are cal- 
culated from the address of the mnemonic which comes just 
after the branch instruction. Counting starts from the B instruc- 
tion’s address, plus two. Subtracting two will fix this up for 
branches in either direction. 


Further Evaluation 

We’ve seen how LADS calculates the branch addresses. At this 
point in the source code, we come upon a continuation of 
evaluations of other addressing modes. EVMO05 (2740) gets the 
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size of the argument in order to enable us to look at the charac- 
ter second from the end: LDA (ZERO),Y has a comma in this 
second-from-the-end position. INX NAME does not. By now, 
the variety of possible addressing modes has been somewhat 
narrowed. 

If we did find a comma in that second-from-last position, 
that means the label ends in ,X or ,Y and we go to XYTYPE to 
deal with it. Otherwise, we check to see if it’s a JMP (opcode 
76). MEV eliminates two other possible modes, both Zero Page, 
sending LADS to the TWOS, two-byte, line-ending events. 

We're headed for TWOS by now in any case, but we need 
to once again adjust the value of the opcode in OP if the type 
in TP isn’t 6 or 4. 

TWOS, like TP1 (for one-byte-long instructions) and 
THREES, is where LADS goes after an addressing mode has 
been determined. The opcode has been correctly adjusted and 
waits in OP. The argument waits in RESULT. TP1, TWOS, and 
THREES are quite similar. TP1 doesn’t have an argument, so it 
just JSRs to a subroutine within the subprogram Printops. 
There, the bytes are POKEd into memory or to disk and 
PRINTed to screen or printer. Then LADS JMPs to INLINE to 
prepare for the next line of code. 

TWOS (2970) and THREES (3400) also JSR to that same 
subroutine in Printops (which POKEs, SAVEs, or PRINTs an 
opcode), and then TWOS and THREES JSR to PRINT2 or 
PRINT3 as appropriate to store or print the byte or bytes of 
the argument. 

Immediate addressing (LDA #12) is a variation of TWOS, 
but it first must make one of those adjustments to the value of 
the opcode before JUMPing to TWOs (see line 950). 

THREES also requires some opcode adjustments before 
storing or printing its bytes; PREPTHREES (3240-3390) accom- 
plishes that. 

The JUMP subroutine (3010) handles the mnemonic JMP. 
It’s a special case because it can have a strange addressing 
mode called Indirect Jump. JUMP tests for this and makes the 
necessary adjustment to the opcode if it finds the ASCII code 
for a parenthesis, indicating an Indirect Jump, for example JMP 
($5000). 

IMMED handles the # type, Immediate addressing. It first 
looks to see if the #’”” pseudo-op is in effect (3100) and, if so, 
stores the argument directly from the buffer. Then IMMED ad- 
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justs the base opcode (in the OP variable) if necessary, and be- 
haves like any other two-byte addressing mode, jumping to 
TWOS. 


Preparations for a New Line 

We come now to the cleanup routine, INLINE (3440). Its pri- 
mary job is to handle the correct formatting of the printout of 
the source code. By the time LADS gets to INLINE, it’s already 
printed a line’s number, the address of the PC (the location of 
the code), and the object code bytes themselves: 


line # /addr /bytes of object code 
40 1000 A000 


However, there are still three items to print: an address 
label (if any), the source code, and remarks (if any). To make 
listings easy to read, address labels should be set off by them- 
selves, and source code should line up vertically on a printed 
page or screen: 


line # /addr /bytes / addr label /source / comments 
40 1000 AQ00 START LDY #0 ; begin here (entry) 


Since each column should line up correctly, we’re going to 
need to construct the ML equivalent of BASIC’s TAB function. 
Those first three items—line number, address, and object code 
bytes—can take care of themselves. But any address labels must 
always be in the same position on a line. And since there can 
be one, two, or three object code bytes, the address labels 
wouldn't line up if we just printed a couple of spaces after the 
final object byte. 


TAB 

The first thing INLINE does is to check if we’re on the first 
pass. Nothing gets printed out on pass 1, so we jump over the 
entire INLINE routine. If it’s pass 2, we look to see if the screen 
flag, SFLAG, is up (3470). If it isn’t, we again jump past 
INLINE. 

Then the LOCFLAG is checked. It is up when there is a PC 
address label (like the label START in the example above). If it’s 
up, we use something from BASIC: the cursor position byte. 
We've been using BASIC’s PRINT routine all along. One of the 
advantages of this is that PRINT keeps a record in zero page of 
the current screen position; we could just LDA #20:STA 
CURPOS, and the next printout would be at position 20. 
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Tab to Printer 

Things are more complicated, though, since LADS has an op- 
tion to print listings to a printer as well as to the screen. We 
cannot use the same technique with a printer. 

To find out how many blanks to print to the printer, it’s 
necessary to subtract the CURPOS value from 20. Assume that 
we've printed 14 characters so far: 20 — 14 = 6. We use this 
result in a loop to print blanks to the printer (3660) to cause a 
simulated TAB. 

Following the TAB, we're set to print an address label 
which is still waiting for us up in the buffer FILEN. As usual, 
we set TEMP to point to the message we want printed, and JSR 
PRNTMESS, thereby printing whatever is in FILEN, delimited 
by 0. 


Source Code Printout 

It’s time to move over to the thirtieth position (on screen or 
printer) to the place where the source code is printed. This is 
handled basically the same way as the TAB 20 above. The main 
difference is the BEQ and BMI checks (3920) to take care of ex- 
tra long labels. In most cases, your labels will be less than ten 
characters long, but LADS allows labels to be any length. How 
will we balance the need for neat, vertically aligned printouts 
against the option of labels of any length? How can labels 
which potentially range in length from 1 to 200 characters be 
formatted? 

Since address labels always start in the twentieth position, 
and source code always begins in the thirtieth position, we’ve 
allowed ten spaces for address labels during printout. Onscreen, 
an address label 12 characters long would be truncated: 
STARTLINEHERE would be printed as STARTLINEH. But on 
the printer, the entire label would be printed and simply push 
the source code printout over. You can adjust any of these 
formatting options rather easily if they don’t suit your needs. If 
you want to truncate address labels to five rather than ten 
character lengths on screen, just change LDA #30 to LDA #25 
(3830). 

In INLINE, we've done some output switching between 
screen and printer. We've called upon routines like CLRCHN, 
CHKOUT, and CHKIN. The protocol for using these routines is 
discussed in Chapter 5, the chapter on peripheral 
communications. 
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PRMMFIN (4000) prints the characters in the buffer LA- 
BEL. That will be the source code. Then, LADS checks to see if 
there was a < or > pseudo-op in this line. If so, it tags one of 
these symbols onto the end of the source code label. If your 
source code looks like this: LDA #>STARTLINE, the printout 
will be LDA #STARTLINE>. This will help to call attention to 
this special pseudo-op addressing mode. The < and > symbols 
are not buried within the label. . 

The underlying reason for doing things this way, however, 
is not its visual appeal. It’s easier and faster for LADS to an- 
alyze #STARTLINE than to analyze #>STARTLINE. During the 
analysis phase, LADS pulls out the < or > and raises BYTLFAG 
to show that the pseudo-op was originally a part of the label. 
Then it can assemble the label the same way it would assemble 
any other label. 

The final job to be performed by INLINE is to check 
BABFLAG to see if there is a REMark, a comment, to print out 
(4100). The Indisk subprogam sends any comments to the 
buffer called BABUF to keep them safely out of the way. 
BABUF is the same buffer that BASIC uses for input. If there is 
a comment, we print a semicolon (4130), point TEMP to BABUF 
(4160), and PRNTMESS. 

Then a carriage return is printed and we check to see if this 
was the final line of the source code. If ENDFLAG is set, we go 
to the assembly shutdown routine, FINI. If not, we pop back up 
to where we first started this line, STARTLINE, and pull in the 
next line of source code. 


FINI: Which Pass? 

As a two-pass assembler, LADS, of course, goes through the 
entire source code twice. When we get to FINI, we need to 
check which pass we're on. If it’s pass 1, we INC PASS (from 
its zero condition, thereby setting it). After this INC, the next 
time we reach the end of the source code and come to FINI, 
we'll be sent to FIN, the shutdown routine. 

But assume we've just finished pass 1 at this point. What 
we must do is reset the PC, the Program Counter. Back at the 
beginning, we saved the starting address in TA. SA has been 
LADS’ PC variable, counting up and always keeping track of 
the current address during each event. Now it’s time to reset 
SA by putting TA in it. Then we close the source code file on 
disk and promptly open it up again. This has the effect of reset- 
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ting the disk’s PC to point to the first byte in the disk file. Now 
we're ready to read in the source code all over again. We're 
ready to start the second pass. 

We jump back up, just below START, to SMORE and read 
in, once again, the first line of the entire source code. 

If we’ve already completed pass 2, however, we don’t want 
to restart source code examination—everything’s already 
accomplished, POKEd and PRINTed and SAVEd to disk as the 
case may be. We want to gracefully exit the assembler. FIN 
(4390) does this. It closes down any read or write files on disk, 
closes down communication to a printer, and jumps to BASIC 
mode. Now would be the time to try the object code program, 
to make some adjustments to your source code if you want, and 
then SYS back into LADS for another assembly. . 

Each computer has a “side entrance,”’ a warm start into its 
BASIC. This entrance doesn’t wipe out what’s in RAM memory, 
doesn’t blank out the screen. It’s here that the LADS goes to 
move gently back into BASIC mode. The address of TOBASIC 
for each computer is defined in the subprogam Defs. 


Evaluating ,X and ,Y 
Although FINI is the logical end of the evaluation process, it’s 
not the physical end of the Eval subprogram. Just below FINI is 
XYTYPE where such addressing modes as LDA $5000,Y are 
analyzed. 

They too require some opcode adjustments before going to 
TWOS or THREES for printing and POKEing. We JMP to 
XYTYPE after having found a comma in a source code line like: 


LDA SCREEN,X 


and so the Y Register is pointing to the character just beyond 
the comma when we arrive at XYTYPE. All we need to do is 
load BUFFER,Y to check if the character following the comma is 
an X ora Y. If it’s an X, we jump down to L720 which handles 
X type modes. 

Otherwise, we’re dealing with something involving a Y 
addressing mode. It might be this: 
LDA (15),Y 
so we have to check for the right parenthesis. We DEY DEY to 
move over to just in front of the comma and see if there’s a ) 


symbol. If not, we’ve got a Zero Page Y addressing mode like 
LDX 10,Y or STX 10,Y. LDX and STX are the only two 
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mnemonics which can use Zero Page Y addressing. They’re 
rare, It’s quite likely you haven't ever used them; it’s possible 
that you haven't ever heard of them. But LADS must check for 
them just in case. LADS goes to ZEROY if there was no ) 
symbol. 

LADS is likely to find the ), however, because Indirect Y 
addressing is a mode which is both common and useful. En- 
countering this mode, LADS goes to INDIR to process the In- 
direct addressing mode. 

ZEROY (4660) is a somewhat misleading name, for it also 
handles the popular mode, Absolute Y: LDA SCREEN.Y. This 
addressing mode is not Zero Page. To find out whether it’s 
dealing with the Zero Page Y, LADS checks the high byte of 
RESULT, the argument. If the high byte contains nothing, it 
must be zero page, and we process the opcode as such. If the 
high byte does contain something, the argument is thus larger 
than 255 and the opcode cannot use a Zero Page addressing 
mode. Again, the opcode is adjusted depending on the type (TP). 

The routine at L700 (4950) prints out an error message be- 
cause LADS was unable to calculate a correct addressing mode 
and the source code must contain a syntax error. 

The concluding adjustments to the opcode take place be- 
tween L720 and L809 (5040-5450). You might notice several 
JSRs to P in this section. P (5520) is a short subroutine which 
was used in debugging LADS, but was left in because you 
might want to use it when fixing up your own programs. 


How P Works 

P prints the current PC on screen, but doesn’t destroy what’s in 
the A, Y, or X Registers. Saving A, Y, and X is straightforward 
enough (5520), but where is the PC? 

Whenever you JSR, the return address is pushed onto the 
stack. We can pull it off the stack with PLA, transferring its two 
bytes (one to the X Register and one to the Accumulator), and 
then push it back on with PHA. That leaves the stack ready to 
RTS correctly, but a copy of this RTS address is now in the reg- 
isters as well, OUTNUM is a BASIC routine which normally 
prints line numbers during BASIC’s LIST. But it will print any 
integer number if the low byte is in X and the high byte is in A. 
(See Atari notes for Atari's OUTNUM.) 

Character $BA on Commodore machines is a check graph- 
ics symbol (+), and it’s a convenient way to show that what 
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follows is not part of a normal LADS printout. You could use 
any other symbol to highlight the special nature of the number 
being printed by P. What's important is that you are alerted to 
the fact that somewhere within your ML program, you did JSR 
to P. And the number that P prints will be the address of that 
JSR. 

How is P useful? An ML program is like a rocket. It’s so 
fast that you need to send up balloons now and then just to 
mark its passage from subroutine to subroutine. When you're 
not getting what you expect (and that’s often in large, interact- 
ing ML programs), you can put JSR P into various parts of the 
program. Then, as the program zips along, you'll be able to see 
what’s happening and in what order it’s happening. 

P is like setting BRK into the code or putting STOP into a 
BASIC program. The difference is that P just gives you a simple 
location report and lets the program continue, uninterrupted. If 
you wanted more information, you could expand P to print the 
registers at the same time. With that, you’d be on your way to- 
ward constructing the single-step debugging feature available in 
some monitor programs. 

CLEANLAB (5720) is janitorial. It wipes the main buffers 
clean. It puts 80 zeros into LADS’ main input buffer starting at 
LABEL (see Chapter 9, where the Tables are described). We 
don’t want any remnants of the previous line left over to con- 
fuse things. 

Finally, DOBERR is the error message printout routine for 
branches out of range. It rings the bell (ERRING), prints the 
offending line number, then points TEMPS to its message 
(stored with the other messages in the Tables subprogram), and 
jumps to TWOS so that the Program Counter will still be cor- 
rectly increased by two. 

Now we've seen the innards of Eval, the main evaluation 
engine, the heart of the LADS assembler. It’s time to turn our 
attention to the data base managers Equate and Array. They 
build and search the array of labels. 
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Equate and Array: 


Data Base Management 


The job of setting up an array in machine language is simpler 
than you might imagine. The subprograms Equate and Array 
build and access a data base. 

There are two basic ways to go about storing information: 
in fixed or in variable length fields. (A field in data base 
management means a single item, such as a single label name 
in LADS.) Fixed fields are easier to search, modify, and sort. 
Variable length fields save memory space. LADS uses variable 
length fields so the label table will take up as little space 
as possible. 

A fixed field label system of managing data assigns a 
specified size in bytes for each item. If we had wanted to use 
this method of data storage for LADS’ labels, we could have 
made a rule that label names cannot be larger than ten letters 
long. This would obviously make it simpler to manage the data. 

However, then any label, even short labels, would always 
take up ten bytes. That would use up memory rather in- 
efficiently. Instead, LADS allows labels to be of any length. If 
you are like me, the labels that you will think up naturally 
(without any restrictions imposed on your imagination) will 
normally average about five characters in length. Some will be 
longer, some shorter, but the average label will take up five 
bytes. Two bytes will be attached to each label to hold the inte- 
ger number value which the label stands for. So, the average 
LADS variable (label name plus two-byte integer) takes up 
seven bytes. However, these variable length fields use up about 
40 percent less memory when you consider that fields fixed at 
ten bytes would always take up ten bytes plus the two-byte 
number, never less. 


Sons, Daughters, Clones 

LADS itself is, of course, an ML program. You can have LADS 
object code assemble the LADS source code to disk or some- 
where in RAM memory. This would create a new version of 
the assembler. If you’d made any changes to the source code, it 
would be an offspring, a son or daughter of LADS. If you 
didn’t change the source code, you’d have created a clone, but 
the start address would differ. 
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LADS is about 5K long and uses 402 different labels. When 
it assembles itself from its own source code, it builds a label ta- 
ble which is 2851 bytes large. If it had fields fixed at ten bytes, 
the label table would be 4824 bytes large. 

Why worry? It’s true that the label table matters only dur- 
ing the actual assembly process. As soon as object code has 
been created and LADS returns to BASIC, the label table has 
served its purpose and can be tossed out like an eggshell after 
the egg is in the pan. 

There are two good reasons for conserving memory: (1) the 
environment and (2) interactive freedom. Picture this: While 
assembling itself (or a comparably large program), LADS uses 
up about 8K of memory—5K for itself, perhaps 3K for the label 
table that builds down from the bottom of the assembler. And 
if you’ve chosen the option of assembling object code to RAM 
memory, add another 5K for the object code (the resulting ML 
program). A total of 13K. In some computers, this represents a 
significant bite out of the available memory. 

What's more, LADS is supposed to be interactive. You are 
to have the psychological freedom you have with BASIC, to 
change things, to experiment, and then to quickly assemble and 
test the result. This means that you need space to write your 
source program (in RAM where a BASIC program is normally 
written). Perhaps you'll want a monitor extension in RAM too, 
like ‘“Micromon” or “Supermon” or some other collection of 
ML utilities which permit single-step analysis of ML object pro- 
grams, and other tools which are useful when debugging object 
code. And you might want “BASIC Aid” or “POWER” or some 
BASIC auto numbering, and other BASIC aids to manipulate 
the source code. You might want two different versions of your 
object code in RAM simultaneously so you can compare them 
in action. 


The Programming Environment 
All of these options require available RAM. If you can have 
them all in memory at once, you’ve got a better environment for 
developing an ML program. You won’t always need to wonder 
if it’s worth loading in a certain routine or utility: They’re all 
there and ready to go. All your tools are at hand. This is a 
more efficient way to program. Tools that are out of reach are 
usually tools left unused. 

Second, you want as few restrictions as possible when 
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working with ML. You don’t want to concern yourself about 
the length of each label name. Is it short enough? Does it dupli- 
cate a similar name? Eliminating these questions, too, is part of 
the interactivity, the mental freedom that comes with a 
smoothly running, efficient program development system. Vari- 
able length labels promote both effective memory conservation 
and an efficient programming environment. 


Equate 

The Equate subprogram starts off with one of those LDY #255 
initializations. Remember that we don’t always want to LDY #0 
before a loop. There are times when the first event is the zeroth 
event. This is one of those times. 

Line 40 sets Y to 255 so the INY in line 50 will make Y = 
0. This allows us to LDA LABEL,Y and receive the first charac- 
ter in the buffer called LABEL. If we had set Y=0, the INY 
would have forced us to look at the second character in the 
buffer. Why not put the INY lower in the loop somewhere? 
That way, we would load in the first character the first time 
through the loop. 

Obviously we can’t INY just before the BNE in line 90. 
That would branch depending on the condition of Y itself, not 
on the item in A (which is our intention). For the same reason, 
we can’t put it just before the BEQ in line 70. The only other 
safe place for it would be in a line between 70 and 80. That 
wouldn't do any damage to the branches because the CMP will 
reset the flags and the following BNE will act correctly. 

This loop isn’t moving characters from one buffer to an- 
other or anything. Its sole purpose is to count the number of 
characters in a label name, to find the length of the label. Y is 
the counter. 

While locating Y in a line 75 would work correctly, it 
would be less clear what the loop is accomplishing. In cases 
like this, you have to decide where your personal priorities lie: 
Do you want to emphasize the function of a routine in a way 
that’s more easily understood, or do you want to emphasize a 
uniform style of coding loops? If you prefer to always start such 
loops with LDY #0, by all means, go ahead. But that LDY #255 
serves to alert you that this loop is a special kind of loop. If you 
come back later to modify a program, such signals can be 
helpful. 
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Once the length of our label is discovered, we add 2 to it 
by INY INY, to make room for the two-byte integer which will 
be attached to the label in our array. Each label stands for a 
number. And any legal number in ML can be stored within two 
bytes as an integer between 0 and 65535 ($0000-$FFFF). 

Equate is called upon only during pass 1. On pass 1, the 
assembler puts each label into the array and attaches the two- 
byte integer onto the end of the word. So Equate’s first job is to 
find out how much room to make in the array for each new la- 
bel it comes upon. It makes room by lowering the MEMTOP 
variable by the length of the label name, plus two. 


Building the Array Downward 

SUBMEM moves our pointer down to make room for a new la- 
bel. When SUBMEM is finished (200), the array is larger by the 
size of the new word we’re adding to it, plus two bytes for the 
value of the word. The array is thus expanded, lowered. 

Now we can store the label in the array. The first letter of 
each label in the array is special. It’s shifted. That is, we add 
$80 (128 decimal) to the normal ASCII code value of the 
character. This is the same as setting the seventh bit. 

If the label is ‘‘“addnum,” we want to store it as “Addnum’’ 
so that when we later search through the array, we can locate 
the start of each new label. The shifted letter will be our delim- 
iter, separating the different labels. With fixed length fields, we 
wouldn’t need a delimiter at all—each label would be exactly 
the same size as every other label. But our labels can vary in 
length, so we have to know where one begins and another 
ends. 

The array will look like this (the xx is the two-byte value 
of each label): 


AddnumxxSecondwordxxThirdwordxxFourthlabelxxFifhlabelxx 


What exactly does it mean to say that a letter is shifted? In 
the ASCII code for alphabetic, numeric, punctuation (! or . or ,), 
and symbolic (# or % or *) characters, everything is assigned a 
code number which is lower than 128. Above 128 are the 
uppercase versions of letters, etc. Hence, above 128, the charac- 
ters are shifted. For the purposes of ML, a shifted character is 
something with an ASCII code value greater than 127. It has 
the seventh bit set in its byte: 10000000. That leftmost bit 
would always be up in any shifted character. This phenomenon 
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makes it easy to distinguish between shifted and unshifted 
characters. We can just LDA CHARACTER and then BMI 
(branch if seventh bit up) or BPL (branch if seventh bit down). 
The subprogram Array will make good use of this clue. 

For now, all we want to do is shift the first character before 
we store it into the array. We just set up the seventh bit. If 
that’s the same as adding $80 to a character, why not simply 
ADC $80 instead of EOR $80 (230)? With EOR we get a 1 if ei- 
ther of the compared bits is set. We get a 0 if both bits are 1 or 
if both bits are 0. The only way we get a 1 is if one of the bits 
is 0 and the other bit is 1. Any other situation results in a 0. 
Look at a bit comparison: 


1EOR 1=0 
0 EOR 0 = 0 
1EORO = 1 


Consequently, EOR $80, with the $80 (binary 10000000) 
acting as a mask, will leave all the bits in the Accumulator un- 
changed, but will set the seventh bit. The main reason to use 
EOR is that we don’t have to bother with clearing the carry 
(CLC) as we normally would prior to any addition. 

After we store the shifted first letter in what is currently 
the lowest position in the array, we INY. This serves two pur- 
poses: It points us to the second character in the label word and 
also points us to the second space from the bottom of the array 
(where the second character of the label word belongs). 


Address or Equate? 
Now we load the second character and check if it’s a space 
(260-280). We might be dealing with a one-character-long label, 
like P. We’ve got to check for this eventuality. Finding such a 
short label, we would jump down to see if there’s an = sign. 
But if the label is more than one character long, we store the 
second letter in the array (290) and jump back up to fetch and 
store the third and any additional letters in the label name. 

The essential thing to notice here is that a space is our 
delimiter in the buffer—letting us know when we've reached 
the end of the label word. And after finding a space, we are 
then prepared to distinguish between the two types of labels: 
PC and equate. 

We compare the character following the space to $3D (this 
is the = sign). If it is an = sign, we branch to the routine 
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which assesses the argument following the equals sign (is it 
hex? is it decimal?). Otherwise, we go through this BEQ to the 
routine which handles PC-type labels (Program Counter types 
like: LABEL LDA 15, where the label indicates a location within 
the assembled program). 

Storing the value of this kind of label is pretty simple: We 
just put the SA into the array. SA is the variable which always 
holds the current address during an assembly. But one thing re- 
mains to be done before we can return to the Eval subprogram 
to evaluate the LDA 15 part of this line. We've got to wipe out 
the word LABEL which precedes the LDA 15. Eval wouldn’t 
know how to evaluate it. It’s not a mnemonic. 

After loading LABSIZE (the length of the label) into X, we 
load Y with 0. Y will point to the first space in the buffer, while 
X will count down until we’ve covered over the word LABEL 
(430). 


Removing an Address Label 
We load the leftmost part of the mnemonic/argument pair (the 
L of LDA is first), and we store it in the leftmost space in the 
buffer. In other words, the L of LDA covers up the L of LABEL. 
We continue with this process until we’ve loaded in a 0 and 
have therefore replaced LABEL LDA 15 with LDA 15, where- 
upon we store the final 0 as a delimiter and can return to Eval 
510). 
This next subroutine, NOAR (520), isn’t in any sequential 
relationship to the other routines. It just happens to be here. It 
could be anywhere else in LADS just as easily. Its function is to 
ring the error bell and point TEMP to the message NAKED LA- 
BEL and then print that error message. It handles those cases 
when a programmer forgot to put anything after a label: 


00 LABEL:INY 
or 

100 LABEL 
or 

100 LABEL = 


Equate Labels 
If we’re not dealing with a PC-type label, though, we come 
here to store an equate label like LABEL = $22 (590) into the 
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label array. We need to store Y first (in the variable LABPTR) 
so we can remember where in our array to put the value, the 
number following the equals sign. Remember that we've al- 
ready stored the label name. What we need to do now is to put 
the value in the two bytes just following that name. When we 
arrive at this subroutine, Y is holding the correct offset from 
MEMTOP, the correct distance up in memory, from the bottom 
of the array to store the value. 

There are now two possibilities. We are dealing with either 
a decimal number or a hex number. Hex numbers are translated 
by Indisk, the input subprogram, as they flow in from a disk 
file or RAM memory source code. So a hex number is already 
in the RESULT variable, waiting to be stored in the array. 

But decimal numbers aren’t translated as they come in. 
What's more, they arrive in ASCII form and must be converted 
into an integer by the subprogram Valdec. 

We check the HEXFLAG to see if it’s a hex number (610). 
If so, we can just put RESULT into the array and return to Eval 
(750). 

But if it’s a decimal number, we add the value of Y + 3 to 
the start-of-buffer address and point TEMP to the first character 
in the number we need to evaluate. We have to add this three 
to Y because the expression “‘space-equals sign-space” takes up 
three bytes. If we add this to the start of the buffer address, 
we're pointing to the first character in the number, pointing to 
the 1 in an example like: LABEL = 15. 

Then we JSR to VALDEC, which looks at the number 
pointed to by TEMP and translates it from ASCII to an integer 
and puts the answer in the two-byte variable RESULT. 

After this, we go through the same process as with hex 
numbers described above. The RESULT is transferred to the ar- 
ray, we pull off the two-byte RTS left on the stack (when we 
JSRed here from the Eval subprogram), and then jump back 
into Eval at INLINE, the place where a new line is pulled in 
from disk. 


Array 

The Array subprogram is essentially a search routine. It looks 
up a label’s name in the array that was built by the Equate sub- 
program. When it finds a match, it puts the integer value of the 
array word into the variable RESULT. In effect, Array replaces a 
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label with its number. Here’s an example fragment of source 
code: 

10 *= 864 

100 NAME = 2 

110 LABEL = 15 

120 START LDA LABEL 


On pass 1, Equate would store ‘Start864Label15Name02” 
into the array. The LADS label array builds down from the 
location of the start of LADS object code in memory. That is, 
the first part of LADS itself would be right above Name02. Line 
120 contains two labels, START and LABEL. However, Equate 
ignores any labels which are not the first word in a given line. 
It only stores labels when it comes across the line in which 
they are defined. Any label being defined will be the first item 
in a given line. And if they are defined twice in the source 
code, that’s an error. 

(Note that, in the example of array storage above, Start864 
is for illustration only. The number 864 is stored as a two-byte 
integer, not as 864, the ASCII characters we can read.) 

While Equate ignores any label which is not the first thing 
on a line, Array ignores any label that is the first thing on a 
line. In the example above, Array would pay no attention to 
any of the labels except LABEL in line 120. It’s Array’s job to 
evaluate expression labels. An expression label is one that is 
used in an expression, one that is used as the argument of a 
mnemonic. 


Array Works on Both Passes 

Nevertheless, Array must operate on pass 1 as well as on pass 
2. This is because pass 1 must keep an accurate PC, an accurate 
Program Counter. For Equate to store the correct number for la- 
bels, of the address (PC) type (like START in the example 
above), it must be able to find out precisely where in memory a 
given line is to be assembled. It must know that START is lo- 
cated at 864. 

This problem derives from Zero Page addressing. LDA 15 
takes up only two bytes in memory when assembled. LDA 
1500 takes up three bytes. If labels were used in place of 15 
and 1500 in these instructions, we must know 
whether to raise the PC by two or by three. So Array must look 
up all arguments on pass 1 to decide how much to increment 
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the PC. (This PC, or Program Counter, is held in the LADS 
variable SA.) 

In line 30 where Array begins, it moves the “bottom-of- 
LADS” (top of array) address from its permanent storage place, 
the variable ARRAYTOP, to the dynamic, changing pointer 
PARRAY. PARRAY will be lowered frequently as it points us 
down through the entire array. 

Then we JSR to DECPAR which is the subroutine that low- 
ers the PARRAY pointer by 1. And we stuff a $FF into the flag 
called FOUNDFLAG (90). This is a simple way to test if we’ve 
found our match. If we do find a match, as we'll soon see, we 
INC FOUNDFLAG. This means that FOUNDFLAG can more 
easily be tested in the way we want to test it. If it gets INCed 
once, it will be 0. INCed twice, it will be 1. INCed twice (or 
more) would mean that a label exists more than once in the ar- 
ray. That's an error, a redefined label, and we'll want to alert the 
programmer. Putting $FF into FOUNDFLAG thus allowed us to 
use BEQ to test for this error. 


Checking for the Bottom 

But all that comes later. The primary routine in Array starts 
with STARTLK (100), and oddly enough, the first thing we do is 
check to see if we're at the bottom of the array. The Equate 
subprogram always leaves the variable MEMTOP pointing to 
the bottom of the array. So, by subtracting our current position 
in the array (PARRAY) from the bottom of the array 
(MEMTOP), we can tell if we’ve finished looking through the 
array. If PARRAY is lower than MEMTOP, the carry will re- 
main set, and we will then BCS down to the all-finished rou- 
tine, ADONE. 

Otherwise, we've got to keep on looking. Remember that 
Array must look through the entire array each time; even after 
it finds a match, it must continue looking for another match. 
This is the only way we can detect duplicated labels. 

Array has to accomplish several things at once. It’s got to 
point to the current position in the array, keep track of how 
large a given label is, and check each letter of each word. The 
chip registers will all be busy: A holds characters for checking, 
X keeps count of how large each label is, and Y (working with 
PARRAY) keeps track of our current position. Here, in line 160, 
we set X to zero. 

Then we lower PARRAY by two to get past the number 
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part of a label stored in array (170-230). We want to get past 
the 99 in /Label99/. Some of the stored numbers will have 
their seventh bit set; they’ll be larger than 127. So we've got to 
jump over every stored number since the set seventh bit is our 
test to see if we’ve come upon the first character in a label 
name. We don’t want numbers masquerading as label name 
delimiters. 

At last we look at a character (260), and if the seventh bit 
is set, we BMI down to FOUNDONE. If it’s not the start of a 
label name, we decrement PARRAY by 1 and jump up to 
LPAR to look at the next letter lower in memory within the ar- 
ray. Notice that we also raise the X (label length) counter (320). 
By the time we've found a shifted seventh bit indicating the 
start of a label name, X will hold the correct length of the 
name. 


Double Decrement 

Let’s pause a minute to look at how a double decrement works 
(280-310). If, upon loading the low byte of PARRAY, the zero 
flag is set, we would be forced to lower the high byte of 
PARRAY (PARRAY + 1 in line 300). If the low byte isn’t yet 
lowered to zero, however, we can just lower the low byte and 
ignore the high byte (310). Note that a zero in the low byte re- 
quires lowering both the high and low bytes. Correctly 
decrementing $8500 would result in $84FF, lowering both 
bytes, while a correct decrement of $8501 would just lower the 
low byte: $8500. 

Once we have located a set seventh bit, thus locating the 
start of a label name, we come to the FOUNDONE subroutine 
(350). Here we must first store PARRAY into the temporary 
holding variable PT so we can remember exactly where the la- 
bel name begins. Then we reload A with the first character of 
the label (390) and compare it against the first character of the 
label we're looking for. That first character was previously in 
the variable WORK just before we came to Array from Eval. 

If these first characters match, we go to LKMORE to check 
the rest of the word for a full match. If not, we go to 
STARTOVER. 

In LKMORE, we first raise X to be the correct length of the 
current array label under examination. Then we save it in the 
variable WORK+ 1. We've got to save it at this point because 
now X will serve as the counter of the source label length. The 
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source label is the word we're looking for, the label from the 
source code we’re trying to find a match to. 

The fact that some labels will be like (LABEL),Y or #LABEL 
(having a ( or # as their first character) is a potential source of 
confusion to the Array search routine. To eliminate this confu- 
sion, whenever a ( or # is encountered during the Eval sub- 
program, a special flag, BUFLAG, is raised. That makes it easy 
for us to skip over them here by raising the Y offset (490) if 
necessary. . 

Paradoxically, we simply INY again, right after this. That’s 
because we want to point to the second character in the label 
(we got this far because the first characters matched). Neverthe- 
less, the combination of INY and DECPAR (490-500) effectively 
takes care of the ( or # situation and makes this INY point to 
the second letter of the label proper. 

The LKM1 loop compares the entire rest of the source label 
against the array label (520-600). There are three ways, and 
only three ways, for us to get out of this loop. We can come 
upon a zero, which would surely be the end of the label in the 
buffer (the source label). A zero always means the end of a line 
of source code. Or we can come upon a character which is 
lower than 48. That includes things like left parentheses and 
commas in the ASCII code. Something like the comma in LDA 
LABEL,X would signal the end of the source label. (Checking 
for characters lower than 48, however, doesn’t exclude num- 
bers. We can still check for such legal labels as: LDA LABEL12.) 


The Third Exit 

The third way to exit this loop is when we fail to find a charac- 
ter match in the labels. Any point at which this happens, we 
“fall through” line 600—these characters do not BEQ, they're 
not equal. If they are equal, we go back up to check the next 
pair of characters. Notice that X continues to count the length 
of the words (580). In effect, it is counting the length of the 
source label (we already know the length of the array label and 
have it safely stashed away in the variable WORK +1). 

If we leave this loop with a match, it will be a zero or a 
comma or right parenthesis in the source label that causes us to 
leave. X will then be holding the length of the source label. It’s 
possible that we'll find an apparently “perfect match’’ which 
isn’t, in fact, a match at all. For example, LABEL (as the array 
label) and LABE (as the source label) would appear to this 
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LKM1 loop as a perfect match. The only way we have of 
knowing that they do not really match is to compare their 
lengths. 

If we fail to find a match, STARTOVER (620) just restores 
the correct array location of PARRAY (pointing at the first 
character in the label that just failed), and then we lower 
PARRAY by 1 (660) and jump back up to the STARTLK rou- 
tine. STARTLK will also lower PARRAY by 1. This double 
lowering of PARRAY moves it past the number stored in the 
two bytes at the end of the next label down, thus preparing us 
to start the comparison process all over again. 

On the other hand, if we did find a match, we go to 
FOUNDIT (950). Right off the bat, we check to see if the cur- 
rent value of X (length of the source label) matches the pre- 
viously stored value of X (length of the array label). If they 
don’t match, we've got that LABEL LABE situation, and we 
STARTOVER. 

If everything checks out, though, we’ve got an authentic 
match. We raise the FOUNDFLAG. If this is the first match, 
FOUNDFLAG goes up from $FF to $00. That’s fine. There 
should be one match. If, however, FOUNDFLAG is higher than 
0, it means we’ve found more than one match, and we JSR to 
DUPLAB where the ‘duplicated label” error message is printed 
out (1360). 

With or without this message, we next compensate for the 
( or # symbols which might be at the start of a source label and 
then load in the low byte of the number stored just above the 
array label. We put this byte into RESULT and put the high 
byte into RESULT +1. When we arrive here at FOUNDIT, the 
Y Register is pointing just past the end of the label. In other 
words, Y is pointing at the number stored with the label in the 
array. This is because we left the LKM1 loop when we got to 
the end of the label. 


Pseudo-op Adjustments 

Here’s where we make the adjustments for two of our pseudo- 
ops: > < and +. If BYTFLAG is set, it means that < or > was 
used to request the low or high byte of a label. LDA #<LABEL 
requests the low byte (and Eval will only deal with low bytes 
in the # Immediate addressing mode). The label’s low byte is 
already in the low byte of RESULT, so we need do nothing. But 
BYTFLAG is a special kind of flag. It has three states rather 
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than the normal two (set or clear, up or down) states. If it con- 
tains a 2, this signals that the #>LABEL pseudo-op was used, 
requesting the high byte of the label. To do this, we need to 
put the high byte of RESULT into the low byte of RESULT 
(1140-50). That’s it. 

PLUSFLAG signals a + pseudo-op like LDA LABEL+ 25. 
The amount we're supposed to add to LABEL (the 25) is al- 
ready stored in the variable ADDNUM (by a subroutine in the 
Indisk subprogram). All we have to do here is add ADDNUM 
to the value in RESULT (1180-1240). 

When these two pseudo-ops have been taken care of, we 
return to STARTOVER and keep looking for duplicated labels if 
we're on pass 1. On pass 1, we aren’t allowed to leave the Ar- 
ray. On pass 2, however, it’s not necessary to repeat this check- 
ing or to repeat the error messages, so we RTS, which sends us 
back to the Eval subprogram. 

We've successfully put the value of the source label into 
RESULT. Now the Eval subprogram can go on to figure out the 
addressing mode, finish up by POKEing in the opcode and the 
argument, and then pull in the next line of source code. 

But what if we didn’t find any match to the source label 
and we’ve gone through the entire array? This can mean two 
things, depending on which pass we're on. On pass 1, it’s 
harmless enough. It could well mean that the label hasn’t yet 
been defined: 

100 INY 

110 BNE FORWARDLOOP 
120 INX 

130 FORWARDLOOP LDA 15 


On the first pass, the label FORWARDLOOP will not be in 
the array until line 130. Nevertheless, the Array subprogram 
will search for it in line 110. And it won’t find it. But so what? 
On pass 1, we can just ignore this failure to find a match and 
RTS back to Eval. 

It would be a serious error, though, if the label could not 
be found in the array on pass 2. It would be an “undefined la- 
bel” error. 


When a Label Was Never Defined 
Both of these possibilities are dealt with in the subroutine 
ADONE (690-940). If FOUNDFLAG has the seventh bit set, 


91 


Equate and Array: Data Base Management 


that means that it’s still holding the $FF we put there at the 
very start of Array. We never found the match. We check the 
PASS, and if it’s pass 2, we print the line number and the 
NOLAB error message ‘undefined label.” 

Then, no matter which pass it is, we still want to keep the 
program counter straight, or all the rest of the assembly will be 
off. The problem is that an undefined label doesn’t give us the 
answer to the question: Is this a three-byte ordinary address or 
a two-byte zero page address? Is it LDA 15 or LDA 1500? 
Should we raise the PC by two or by three? If we raise it the 
wrong amount, any future reference to address-type labels will 
be skewed. Here’s why: 

100 *= 800 
110 LDA LABEL; this label is undefined 
120 ADDRESS INY; what is the location of ADDRESS here? 


If LABEL is in zero page, ADDRESS = 802. If LABEL is 
not zero page, ADDRESS = 803. We should try to get this 
right on pass 1. Pass 2 depends on pass 1 for correct label val- 
ues, including address-type labels. Even if a label is not yet de- 
fined, we should still try to raise the program counter by the 
correct amount. 

In Eval there are routines called TWOS and THREES. 
TWOS raises the PC by two bytes for Zero Page and other two- 
byte-long addressing modes like LDA #15. THREES handles 
three-byte-long modes like Absolute addresses, etc. It’s here in 
the Array subprogram, however, that we have to decide which 
of these routines to jump back to in Eval. 

Branches like BNE and BEQ will often be undefined during 
pass 1 because the program is branching forward. We’ll want to 
go to TWOS if there’s an undefined label following a branch 
instruction. All branches are type 8, and we can easily check for 
them by LDA TP:CMP #8 (860). The other possible TWOS can- 
didate is one of the > or < pseudo-ops. BYTFLAG signals one 
of them. 
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The # Immediate addressing mode is not tested for, so this 
adjustment isn’t foolproof. The assumption is that any un- 
defined label is essentially a fatal error and that there will have 
to be a reassembly. Most undefined labels are considered to be 
three-byte instructions and we JMP THREES (920). 

This clarifies why LADS cannot permit the definition of a 
Zero Page address within the source code. All Zero Page ad- 
dress labels must be defined at the start of the source code, 
before any actual assembly takes place. Without this rule, our 
‘“yet-undefined-label’’ routine (690-930) will treat them, in- 
correctly, as three-byte address modes. It can recognize only 
branches and > < pseudo-ops as two-byte modes. Any other 
label that’s not defined will be seen as a three-byte type. 
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Open1, Findmn, Getsa, 


and Valdec: 
I/O Management and 
Number Conversions 


I/O (Input/Output), a computer’s method of communicating 
with its peripherals, is one of the most machine-specific and 
potentially complex aspects of machine language programming. 

Sending or receiving bytes to or from disk or tape drives 
and sending bytes to a printer are the most common I/O activ- 
ities. A large part of a computer’s ROM memory is usually de- 
voted to managing I/O. 

I/O is machine-specific because each manufacturer invents 
his own way of managing data, his own variations on the 
ASCII code, and his own disk or tape operating systems. 

And I/O is complex because printers and disk and tape 
drives differ greatly in such things as how fast they can store 
bytes, how many bytes they can accept, and esoteric matters 
like timing, error checking, and special control signals. 

ML programmers are frequently advised to perform I/O 
operations in BASIC and then SYS, CALL, or USR into the ML 
after the hard part has been accomplished by the computer's 
operating system. This works well enough with small ML 
projects. But it can become awkward in a large ML program. 
LADS itself must open and close disk files pretty often, It 
would be inefficient to require LADS to fly down into an at- 
tached BASIC program for this. Also, large ML programs are 
easiest to save, load, and use if they are written entirely in ML. 

Fortunately, we can access BASIC’s ROM routines from 
within an ML program. Certain registers and pointers in zero 
page need to be set up, then we can JSR to open a file to a 
peripheral. After that, we can send or receive bytes from that 
file. 

Since these routines are so machine-specific, we'll look at 
the Commodore techniques in this chapter. See Appendix C for 
an explanation of the Atari and Apple I/O techniques. 
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Commodore I/O 

Some peripherals are intelligent and some are dumb, Com- 
modore disk drives are highly intelligent—they’ve got large 
amounts of RAM and ROM memory. One consequence of this is 
that relatively little 1/O computing needs to be done within the 
computer proper. A Commodore disk drive is a little computer 
itself. You can just send it a command, and it takes over from 
there. 

The tape drives, though, are dumb. ROM intelligence within 
the computer must manage I/O to tape. Some printers aren’t so 
dumb, but since you can choose from so many different models 
and brands, the computer just sends out a sequence of raw bytes 
when you print to a printer. Your BASIC or operating system 
makes no effort to control fonts, formatting, or any other special 
printer functions. You are expected to send any necessary printer 
control codes via your software. If the printer is equipped to TAB 
or justify text, that’s up to the printer’s ROM. 


Openl 


In the subprogram Open1, there are four Commodore-specific 
subroutines. In many respects, they are identical subroutines. 
Each opens a file to an external device in much the same way. 
Only the specifics differ. The first subroutine, OPEN1, starts 
communication with a disk file which will be read. That is, the 
source code will come streaming in from this file so that LADS 
can assemble it. This file will be referred to as file 1. 

The second subroutine, OPEN2, opens file 2 as a write file. 
If the user includes the .D NAME pseudo-op within his source 
code, the results of a LADS assembly, the object code, will be 
stored on disk in a file called NAME. OPEN2 makes the disk 
create this file. 

The third subroutine, OPEN4, creates a simple write file to 
the printer. It, too, is similar to the others except that there is, of 
course, no filename. 

Looking at OPEN1, the first event is a call to the CLRCHN 
subroutine within BASIC. All I/O (including that to the screen 
and from the keyboard) is governed by this opened-files concept 
in Commodore computers. The normal I/O condition is output 
to the screen and input from the keyboard. CLRCHN sets the 
computer to this condition. It is a necessary preliminary before 
any other opening or closing of files. 
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Resetting the Disk Program Counter 

Next we close file #1 (50-60). This resets the disk intelligence. As 
we shift from pass 1 to pass 2, we’ve been reading through file 
#1 to bring in our source code. On pass 2, we want to start all 
over again with the first byte in the disk source file. It is nec- 
essary to close, then reopen, file #1 to force the disk intelligence 
to again point to that first byte in the file. 

Next we must prepare some zero page file-manipulation 
pointers. We store the file number to FNUM, the device number 
(8 is the disk device number in Commodore computers) to 
FDEV, and the secondary address to FSECOND. All of this is 
precisely what we do in opening a file from BASIC with OPEN 
1,8,3. 

Then we have to point to the location of the filename 
within RAM. LADS holds filenames in a buffer called FILEN, so 
we put the low and high bytes of FILEN’s address into the 
FNAMEPTR. Then, at last, we go to OPEN, the BASIC sub- 
routine which opens a disk file. 

The four zero page locations and the OPEN routine in ROM 
are all machine-specific. They are defined in the Defs sub- 
program. OPEN2 is identical except for a different filename, a 
different file number, and a different secondary address (which 
makes it a write file). 

OPEN4, too, is identical except that the secondary address is 
ignored, the device number is 4 (for printers in Commodore 
computers), and there is no filename. 

Line 430 reveals a fifth zero page location which must be 
POKEd before calling the OPEN subroutine in BASIC ROM. It 
holds the length of a filename. (Opening to a printer uses no 
filename, so a zero is put into FNAMELEN [430].) 

Both of the other subroutines, OPEN1 and OPEN2, do not 
need to POKE FNAMELEN. It is POKEd just before LADS JSRs 
to either of them. 

LOAD 1, the final I/O subroutine in this subprogram, is 
used with the assemble-from-RAM-memory version of LADS. In 
this case, the source code files are LOADed into RAM before 
they are assembled. This means that we need to imitate a typical 
BASIC LOAD of program files. 

The LOAD subroutine within BASIC requires that the 
LOAD/VERIFY flag be set to LOAD (rather than VERIFY), that 
8 be declared the device (disk), and that the name of the pro- 
gram to be loaded be pointed to. Then the machine-specific 
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LOAD routine within BASIC is called. After that, the program 
(the source code) is loaded into the normal RAM address for 
BASIC programs. 


Findmn: Table Lookup 


This subprogram is similar to the Array subprogram: Both look 
through an array and find a match to a “source” word. Yet 
Findmn is simpler than Array. It doesn’t need to check for 
word lengths. Also, the numbers (the values) associated with 
the words in the array are more simply retrieved. Findmn tries 
to find a mnemonic like LDA or BCC in a table of all 56 of the 
6502 machine language mnemonics. 

This table (or array) of mnemonic names is in the sub- 
program Tables at the very end of LADS source code. The 
mnemonics table starts off like this: 


50 MNEMONICS .BYTE “LDALDYJSRRTSBCSBEQBCCCMP 
60 .BYTE “BNELDXJMPSTASTYSTXINYDEY 


and continues, listing all of the mnemonics. 

This array of mnemonics is simpler and faster to access than 
our array of labels because it’s what's called a lookup table. It has 
four characteristics which make it both easy to access and very 
efficient: It’s a fixed field array (all items are three bytes long), 
it’s static, it’s parallel, and it’s turbo-charged. 

Charles Brannon, my colleague at COMPUTE! Publications, 
is a proponent of what he calls “turbo-charged code.” He writes 
an ML program, gets the logic right, and then takes a cold look 
at things, especially at heavily used loops. Is the first CMP the 
one most often true in a series of CMPs? Or would it be faster to 
rearrange these CMPs in order of their probability of use? 
Should an Indirect Y addressing mode be replaced by an even 
faster structure such as self-modifying Absolute addressing? 
Would a lookup table be a possible replacement for some com- 
puted value? Sometimes, small changes can result in extraor- 
dinary gains in speed. For example, after LADS was finished and 
thoroughly tested, it took 5 minutes, 40 seconds to assemble it- 
self (5K of object code). 

A cold look, about five hours of work, and the resulting few 
minor changes in the source code brought that time down to its 
present speed for self-assembly: 3 minutes, 21 seconds. (This 
speed test was conducted with only the .D name pseudo-op ac- 
tivated, on a Commodore PET/CBM 8032, with a 4040 disk 
drive, and involving far fewer comments than found with the 
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source code as published in this book. The use of additional 
pseudo-ops, additional comments, or other computer/disk 
brands and models will result in different assembly speeds. The 
Apple has a faster disk drive, for example, and the LADS Apple 
version is even faster than the Commodore version.) 

How does this mnemonics lookup table differ from the label 
array? They’re both arrays, but the label array is a dynamic array. 
It changes each time you reassemble different source code. A 
lookup table, by contrast, is static: It never changes. It’s a place 
where information is permanent and lends itself, therefore, to a 
bit of fiddling, a bit of turbo-charging. 


A Special Order 

First of all, in what order did we put these mnemonics? They're 
not in alphabetical order. In that case, ADC would be first. 
They’re not in the numeric order of their opcodes either. Using 
that scheme, BRK would be first, having an opcode of 0. Instead, 
they’re in order of their frequency of use in ML programming. 
The order wasn’t derived from a scientific study—I just looked at 
them and decided that I used LDA more often than anything 
else. So I put it first. 

The reason for putting them in order of popularity is that 
every line of source code contains a mnemonic. Every time a 
mnemonic is detected, it must be looked up. Since this lookup 
starts with the first three-letter word in the table (all mnemonics 
are three letters long) and works its way up the table, it makes 
sense to have the most common ones lowest in the table. They'll 
be found sooner, and LADS can continue with other things. It 
turns out that rearranging the order of the mnemonics in the ta- 
ble resulted in an increase in speed of considerably less than 1 
percent, but everything helps. The principle is valid, even if it 
doesn’t accomplish much in this case. 

The second quality of a lookup table—parallelism—is rather 
significant to the speed of LADS. Right below the MNEMONICS 
table in the Tables subprogram are two parallel tables: TYPES 
and OPS. (See the Tables subprogram at the end of Chapter 9.) 
TYPES can be numbers from 0 to 9. It is handy to group 
mnemonics into these ten categories according to the addressing 
modes they are capable of using. Some mnemonics, like RTS, 
INY, and DEY, have only one possible addressing mode (they 
take no argument and have Implied addressing). They are all la- 
beled type 0. The branching instructions, BNE, BEQ, etc., are ob- 
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viously related in their behavior as well: They are type 8. This 
categorization helps the Eval subprogram calculate addressing 
modes. This table of TYPES parallels the table of MNEMONICS. 
That is, the first mnemonic (LDA) is type 1, so the number 1 is 
the first number in the table of TYPES. The fifth mnemonic in 
the MNEMONICS tables, BCS, is paralleled by the fifth number 
in the TYPES table, 8. 


The Efficiency of Parallel Tables 

What's the value of putting them in parallel? It allows us to use 
the Y or X Register as an index to quickly pull out the values in 
any table which is parallel to the primary lookup table, 
MNEMONICS. Once we've found a match within MNEMON- 
ICS, we can simply LDA TYPES,X to get that mnemonic’s type. 
And we can also LDA OPS,X to get the opcode for that mne- 
monic. All this works because we INX after each failure to match 
as we work our way up through the MNEMONICS table. X will 
point to the right item in each of the parallel tables, after we find 
a match. 

But now on to the actual lookup techniques which are used 
in the Findmn subprogram. As usual, we set our index counters, 
X and Y, before entering a loop. X gets $FF (40), so it will zero at 
the first INX at the start of the loop. Y gets 0. You can tell that 
this was the first subprogram written in LADS. Nowhere else 
can we achieve the elegant simplicity of calling a loop LOOP 
and the end of the routine END (390). After using them once, 
we'll have to come up with other names for loops and exits. 

Anyway, we enter LOOP and look at the first character in 
the MNEMONICS table (60). If it matches the first character in 
the buffer LABEL (holding something like: LDA 15), we jump 
down to look for a match to the second, and then the final, 
character in the mnemonic. Otherwise, if there is no match, we 
INY INY INY to move up three characters in the MNEMONICS 
table and prepare to compare the first letter of the second mne- 
monic against our source mnemonic. 

When looking something up, it saves time if you just test 
first characters before going on to whole-word tests. 

Assuming a first characters match, MORE (150) compares 
the second characters. If they match, we go on to MORE1. This 
time a failure to match results in two INYs because there was 
one INY at the start of MORE. MORE] tests the third characters. 
If it fails, we only need one INY. In each case, a failure returns 
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to LOOP. LOOP itself fails when it has exhausted all 56 
mnemonics in the table and no match has been found. Since 
each attempt causes X in INX, we can test for the end of the ta- 
ble of 56 mnemonics by CPX #57 (120). 

If we have exhausted the table, we jump back into the Eval 
subprogram where label definitions are evaluated. Since we 
didn’t find a mnemonic as the first thing on a source code line, it 
must be a label like: 


100 LABEL LDA 15 


or 
100 LABEL = 75 
JMP for JMP 


Note that we don’t need to PLA PLA the return address of an 
RTS off the stack before JMPing back to Eval from this sub- 
program. That’s because we JMPed here from Eval. Both possible 
returns to Eval will be JMPs. That makes it possible for us to 
JMP directly to Findmn from Eval. For speed, we can JMP back 
to two different places within Eval, depending on whether we 
did or did not find a mnemonics match. 

Finding a match, however, sends us to the FOUND sub- 
routine (300) where we check to see if there is a blank character 
or a zero (end of line) following the supposed mnemonic. If 
there isn’t, that means we've got a label which looks like a mne- 
monic: INYROUTINE or BPLOT or something. We can’t let that 
fool us. If there’s a character in the fourth position, such words 
reveal themselves to be labels. If so, we go back to Eval via 
NOMATCH. 

But let’s say that all was well. It’s not an address label, it’s 
not an equate label, it’s not a label disguised as a mnemonic. 
We've located a true mnemonic. All we have to do is pick its 
TYPE and OPCODE out of their tables and store them in their 
holding places, the variables TP and OP, and JMP back to EVAR 
in Eval. EVAR is a subroutine in Eval which examines the argu- 
ment of a mnemonic to determine its addressing mode. 


Getsa: The Simplest Routine 


This subprogram has only one mission: to point to the starting 
address in the source code program. Here’s what it points to: 


10 *= 864 
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Getsa pulls off the first six bytes (in a Commodore disk 
program file) so that it can check to see if the seventh byte is 
the * character (120). If so, Getsa returns to the calling routine 
in Eval (200). If not, it prints the NO START ADDRESS error 
message and goes to FIN (190), the shutdown (return to BASIC) 
routine. 


Conditional Assembly 

There are two fundamentally different versions of LADS. The 
version presented as object code (to be typed in) in this book 
assembles from disk-based source code. You create BASIC-like 
“programs” on disk, and then LADS reads them and assembles 
them without bringing any source code into RAM memory. 

An easy modification to LADS, however, will allow it to 
assemble directly from source code within RAM memory. A 
few trivial changes to LADS’ own source code and you can as- 
semble a new, memory-based LADS. These changes are de- 
scribed between lines 430 and 640 of the Getsa source code 
printed at the end of this chapter. The changes are described in 
greater detail in Chapter 11, “Modifying LADS.” 

But this Getsa source code illustrates one way that your 
source code program can conditionally assemble. Notice line 210. 
The MEMSA and CHARIN routines below it will never be 
assembled. When LADS sees the .FILE pseudo-op, it will im- 
mediately turn its attention to the Valdec source code. .FILE 
shuts down the current file and switches to the named source 
file, ignoring any additional source code in the current file. 

Thus, to assemble the “conditional” part of this source 
code, all you have to do is move .FILE below the new source 
code. See the instruction in line 580 of this Getsa subprogram. 
That’s how you do it to create a memory-based version of 
LADS. 

Another way to conditionally assemble is to insert the .NO 
pseudo-op, thus turning off object-code-to-memory-storage until 
the .O pseudo-op turns it back on. You could write your own 
.ND (no storage to disk) pseudo-op if you want to control 
assembly which is sending its object program to a disk drive. 
Another pseudo-op you could write would be something like 
.NA for No Assembly which would cause LADS to simply 
search down through source code (taking no actions other than 
building the label array) until it located a .A pseudo-op, tuming 
all assembly back on. These .ND, .NA, and .A pseudo-ops aren’t 
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built into LADS, but would be easy to add if you felt you’d have 
a use for them. 


Valdec: Number Conversion 

Numbers such as the 15 in LDA 15 are held in ASCII code for- 
mat within source programs. In other words, when LADS pulls 
in the 15, it doesn’t get the number 15. It gets 1-5 instead. It gets 
the ASCII for 1 and the ASCII for 5: 49 and 53 decimal. (As an 
aside, 1 and 5 are $31 and $35 in hex. It’s pretty easy to men- 
tally convert ASCII hex to numeric form. Just drop the leading 3 
from any hex ASCII number.) 

What Valdec must do is turn 49 53 into the two-byte num- 
ber OF 00 which the computer can recognize and work with. 
This is just a bit more complicated than it might seem. The 
complexity comes from the fact that the 1 in 15 is really 10 times 
1. The Valdec subprogram which handles this ASCII-to-integer 
translation will have to multiply by 10,000 or 1000 or 10 or 1— 
depending on the position of the ASCII digit. We don’t need to 
worry about numbers higher than 65535 since ML doesn’t often 
need to calculate higher than that. All addresses that the 6502 
chip can reach are within that range, and two bytes cannot hold 
a larger number anyway. Therefore, multiplication by 10,000 will 
take care of any case we might come across. 

And since 10,000 is just 10 X 10 X 10 X 10, we'll really 
only need a way of multiplying by 10 a maximum of four times. 
So all that’s really needed is a multiply-by-10 routine that we 
can loop through as often as necessary. Lines 400-550 perform 
this operation. 

But let’s start at the start. Anything in LADS which calls 
upon Valdec for its services will have already set up the TEMP 
pointer to point to the first ASCII character in the number to be 
translated. Also, the number will end with a 0 delimiter. (This 
isn’t the ASCII 0, which is $30. It’s a true zero.) 


Determining Length 
After Valdec finishes, it leaves the results in the two-byte register 
called RESULT. 

First Valdec finds the length of the ASCII number (50-90). 
Our example number, 15, would be two bytes long. Its length is 
stored in the variable VREND, and we then clean out the RE- 
SULT register by storing 0 into it (130-150). Then X (not the reg- 
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ister, the variable) is stuffed with a 1 (170) so it can tell us how 
many times to loop through the times-ten routine for each digit. 
As we move from right to left, reading first the 5 then the 1 in 
15, X will be raised. Coming upon the 5, X will be 1, and we'll 
perform no multiplication. The first thing the loop for multiplica- 
tion does is DEX, so 1 becomes 0 and we exit the loop (250). 

Coming upon the 1, X will tell us to go through the times- 
ten routine once. In other words, we multiply 1 times 10 for a 
result of 10. This, added to 5, gives the 15 we’re after. 

But let’s back up to where we were, at VALLOOP (180). We 
can take advantage of the fact that the ASCII code was designed 
so that the lower four bits in each ASCII numeral byte hold the 
actual number: $35 stands for 5. How do we extract the number 
$05 from $35? We could subtract $30. Even simpler is AND 
#$0F. AND turns bits off. Wherever a bit is off in the mask (the 
#$0F in this example), the bit will be off in the result: 

$35 (ASCII for 5) 

AND OF (the four high bits are all off, 
the four low bits are on—they 
have no effect) 

$05 (the answer we’re after) 


00110101 ($35, prepared to be stripped of its high bits by) 
AND 00001111 (S0F, the mask, turning bits off where the 0’s 
are) 
00000101 ($05, leaving the number we want) 


Here we load in the rightmost character, the 5 in 15, the 
$35 in $31 $35. And strip off the 3, leaving the 5. Then that’s 
stored in two temporary variables: RADD and TSTORE. Next we 
fill both of the high bytes of these variables with 0 (220-240). 
That makes them officially correct. Nothing lingers in their high 
bytes to confuse things later when we perform two-byte 
addition. 

Now that our digit 5 is safely tucked away, we need to mul- 
tiply it by 10 as many time as necessary. DEX lowers X. With 
this first character, X becomes 0, and we BEQ to the exit (330). 
When we come through this loop next time, holding the 1 in 15, 
X will become 1 and we'll therefore JSR TEN (270) one time, 
making 1 into 10. 


Keeping Track of Position 
After the subroutine TEN has multiplied the number in RADD 
(named for Result of ADDition) by 10, we transfer the result 
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from RADD over to TSTORE (280-310). Why the transfer? Be- 
cause in the 100’s position, a digit would need to be multiplied 
by 10, twice. The 2 in 215 would have to be 2 times 10 times 
10. So TSTORE has to keep a running total of the results 
achieved by the TEN subroutine. TEN uses RADD during mul- 
tiplication. Obviously, a second two-byte variable will have to 
keep track of the total as, more than once, we multiply the larger 
digits by 10. 

Another running total, the result of all Valdec’s efforts, is 
kept in the variable RESULT. That will ultimately hold our final 
answer. But each time we achieve an interim answer on a single 
digit, we JSR VALADD (350) to add the results of that digit’s 
multiplication to RESULT (570-640). 

Meanwhile, back up at line 360, we DEY to point to the 
next higher digit, the digit next to the left. And DEC VREND to 
see if we’ve reached the end of our ASCII number and cannot 
RTS. If not, we go back up and load in the next digit, continuing 
to add to the running total] in RESULT. 

The multiply-by-ten routine called TEN (410) is worth a 
brief examination. Let’s imagine that we have put a 1 into RADD 
(200) and we’re going through the TEN loop once, multiplying it 
by 10. We clear the carry. ASL shifts each bit in RADD (the low 
byte of this two-byte number) to the left by 1. The interesting 
thing is that the seventh bit goes into the carry. Then we ROL 
RADD +1, the high byte, which rotates each bit to the left. This 
is the same as the ASL shift to the left. The seventh bit pops into 
the carry. But with ROL, the carry moves into the zeroth bit. A 
combination of ASL ROL shifts all the bits in a two-byte number 
to the left by 1: 

Carry bit high byte low byte 
0 00000000 00000001 (our 1 before ASL low byte, 
ROL high byte) 
0 00000000 00000010 (after) 

You can see that this, in effect, multiplies these bytes by 2. If 
we ASL/ROL again, we get: 

0 00000000 00000100 (the original number, mul- 
tiplied by 4) 

At this point, our answer is 4. We've multiplied the original 
1 by 4 with an ASL/ROL combination, performed twice. 

Now we CLC again and add the original number (1) to the 
current result (4), giving us 5 (460-520). It’s easy to see that all 
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we need to do now is one more ASL/ROL, which multiplies the 
running total by 2 one more time: 
Carry bit high byte low byte 
0 00000000 00000100 (4) 
+ 0 00000000 00000001 (added to the original 1, 


gives) 
0 00000000 00000101 (5) 
then, we just ASL the low byte: 
0 00000000 00001010 (10) 
ROL the high byte (which has no effect on this small a number): 
0 00000000 00001010 (giving us 10) 

That final ASL/ROL multiplies 5 times 2, and we’ve got the 
right answer (530-540). This trick—multiply by 4, add the orig- 
inal number, multiply by 2—will work whenever you need to 
multiply a number by 10. Other combinations will multiply by 
other numbers. And as Valdec illustrates, you can calculate pow- 
ers of 10 by just running the result through this TEN subroutine 
as often as necessary. 
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Indisk: 
The Main Input Routine 


It’s up to the Indisk subprogram to pull in a logical line of 
source code and set it up so that Eval can evaluate it. What 
does the word logical mean when used this way? You'll some- 
times hear of a “logical” string or a “logical” line versus a 
“physical” string or line. The logical thing is what the com- 
puter will see and compute. The physical thing might well be 
longer or shorter. 

For example, on the Apple, Atari, and Commodore 64, 
the screen permits a physical line of only 40 characters. And 
though each screen line can hold only 40 characters, Com- 
modore BASIC can interpret 80-character lines, Apple can 
interpret 256-character lines, and the Atari can interpret 120- 
character lines. The /ogical line length is 80, 256, or 120 
characters, but the physical line is 40. To describe Indisk’s 
routines, we’ll need to make a similar distinction. 

Two physical lines of LADS source code might be: 


100 LDA 15: INY:RTS 
110 DEC 15 


but there are four logical lines in these two physical lines: 


LDA 15 
INY 
RTS 
DEC 15 


Put another way, the LADS logical line is sometimes 
smaller than its physical line. The logical item is the piece that 
a computer—or in this case, LADS—will work with. When- 
ever you see a colon, you’re at the end of a logical line. 

In addition to setting up each logical line for examination 
by Eval, Indisk also performs some other tasks. It sets flags up 
in response to several pseudo-ops; it transforms single-byte 
tokenized BASIC keywords into ASCII words (? becomes 
PRINT); it transforms ASCII hex numbers like $1500 into two- 
byte integers (the same thing the Valdec subprogram does for 
ASCII decimal numbers); and it handles the important BYTE 
pseudo-op. Indisk is a busy place. It’s the second longest 
source file in LADS. Eval interprets logical lines of source 
code; Indisk prepares them for that interpretation. 
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Total Buffer Cleaning 

Indisk starts by cleaning out an entire group of buffers: LABEL, 
BUFFER, BUFM, HEXBUF, FILEN, NUBUFF. That's easy be- 
cause they are all stuck together (see lines 290-340 in the 
Tables subprogram). The CLEANLAB subroutine in Eval just 
sticks 0 into the entire string of buffers. 

Then 0 is put into the HEXFLAG (is it a $ type number?), 
BYTFLAG (is it a < or > pseudo-op?), and PLUSFLAG (is it a 
+ pseudo-op?). These three flags will later be set up, if nec- 
essary, by Indisk. We want them down, however, at the start 
of our analysis of each logical line. 

At line 110 LADS sees if the previous logical line ended 
in a colon. LADS tries to be forgiving. It knows that the pro- 
grammer might accidentally write source code like: 


100 LDA 15: LDX 12 


leaving some spaces between a colon and the start of the next 
logical line. Rather than crash trying to find a label called 
blank-blank-L-D-X, it ignores leading blanks following colons. 
Elsewhere, LADS ignores blanks preceding semicolons. This 
gives the user complete freedom to ignore that potential 
punctuation problem. Logical lines with extra blank spaces 
will be correctly analyzed. 

If a colon ended the previous logical line, we need to skip 
over the fetch-and-store-line-number routine (130-160) since 
there is a line number only at the start of a physical line. In 
BASIC programs, and consequently in LADS source code, the 
two bytes just preceding the start of the code proper in each 
physical line are the line number. They need to be remem- 
bered by LADS for printouts and also for error reporting. 


The Suction Routine 

Lines 170-190 are the suction routine for blanks which might 
precede a colon. We just loop here until something other than 
the blank character (#32) is encountered. Notice that this loop 
is also performed at the start of a physical line, but will have 
no effect since the computer removes any leading spaces when 
you first type in a BASIC or LADS line. 

Line 210 is the start of the main loop which pulls in each 
character from the disk, one at a time. We skip over this (200) 
if we’ve entered at Indisk and therefore are starting a line 
rather than just looking at the next character within a line. 
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But let’s assume for now that we’re trying to get the next 
character in a line. If it’s zero, that means the end of a phys- 
ical line (230), so we go to the routine which checks to see if 
we're at the end of the entire program, not just the end of a 
single line. 

If there was no zero, we check for a colon and jump to 
the routine which handles that (260). Then we check for a 
semicolon. The next section (290-750) handles semicolons. 
There are two types of semicolon situations, requiring two dif- 
ferent responses. 

One type of semicolon defines an entire line as a com- 
ment. The semicolon, announcing that a remark follows, ap- 
pears in this case as the first character in a physical line: 


100; THIS ENTIRE LINE IS A REMARK. 


This type is relatively simple since there is no source code for 
Eval to evaluate. 

The other type of remark, though, appears at the end of a 
logical line, and there is something for Eval to assemble on 
such lines: 


100 LDA 75; ONLY PART OF THIS LINE IS A REMARK. 


When we first detect a semicolon (270), we store the Y 
Register in variable A (290). The Y Register is very important 
in Indisk. It is set to zero at the start of each physical line (60) 
and will still be zero in line 290 if the semicolon is the first 
character in a physical line. This is how we can tell which 
type of comment we’re dealing with (at the start of a line or 
within a line). 

If, however, the programmer has not requested a screen 
printout, there is no point to storing a comment. Comments 
have no meaning to the assembler; they’re just a convenience 
to the programmer. Line 300 checks to see if PRINTFLAG is 
set and, if not, skips over the store-the-comment routine. 


BABFLAG for Comments 
But if the PRINTFLAG was up (contained a 1), we transfer 
that 1 to force the BABFLAG up as well. BABFLAG tells LADS 
that there’s a comment to be printed after the source and ob- 
ject codes have been printed to screen or printer. 

Then that previously stored Y Register is pulled back out, 
and we see which kind of comment we’re dealing with. If Y 
isn’t zero, we've got a within-the-line comment, and we can 
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JSR to the PULLREST subroutine which stores comments in 
the comment buffer (350). Then we return to Eval to assemble 
the first part of the line, the source code part (360). 

When a semicolon appears at the start of a line, though, 
we'll just fill LABEL, the main buffer, with the comment and 
then print out that kind of line right here within Indisk. (Print- 
outs are normally controlled by Eval following the assembly of 
source code. This type of line, however, contains no source 
code.) 

A little loop (370-440) stuffs the comment line into LABEL. 
It exits when it finds the end of a physical line (380), and it JSRs 
when it comes upon a tokenized keyword like PRINT or 
STOPIT. (STOPIT would appear as three characters in the source 
code: the token for BASIC’s STOP command, and the letters I 
and T.) Tokenized words have to be stretched out to their ASCII 
form, or the comment could contain strange nonprinting charac- 
ters or graphics characters, etc., when printed out. Any character 
larger than 127 is not a normal alphabetic character. It’s going to 
be a token. 

When we finally come upon the end of this physical com- 
ment line, we land at PUX1 (450) and proceed to print the line 
number, the comment, and a carriage return just as we do for 
any other line. Then we put 0 into the A variable to let MPULL 
(the return-to-Eval subroutine) know that there is no source code 
to assemble in this line. It will send us back to two different 
places in Eval, depending on whether we should or shouldn’t try 
to assemble the line currently held in the LABEL buffer. 


Storage to BABUF 

The PULLREST routine (520-600) is similar to the PUX routine 
above it, but it stores a comment into the BABUF buffer. 
PULLREST cannot use the LABEL buffer because this is one of 
those lines where the comment comes after some legitimate 
source code. And Eval assembles all legitimate source code from 
the LABEL buffer. After Indisk turns the following line over to 
Eval: 

100 LDX 22; HERE IS A COMMENT. 

the two buffers hold their respective pieces of this line: 


LABEL LDX 22 
BABUF HERE IS A COMMENT. 
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BABFLAG is set up to alert Eval to print a comment after 
it has assembled and printed out the LDX 22 part of this line 
(520). Then the semicolon in the Accumulator is saved in the 
A Register. This is our end-of-line condition. Logical lines can 
also end with colons and zeros. Different end-of-line con- 
ditions require different kinds of exits from Indisk. For ex- 
ample, if we hit a colon, we shouldn’t pull in the next two 
characters and store them as a line number. A colon means 
we've not yet reached the end of the physical line. Since 
PULLREST is used as a subroutine in various ways—JSRed to 
from various places in Indisk—it must save the end-of-line 
condition. 


KEYWAD 

Then PULLREST pulls the rest of the line into BABUF (560-650) 
with a little detour to KEYWAD if the seventh bit is set on one 
of the characters being pulled in. That signals a tokenized 
keyword like ? for PRINT. KEYWAD is the same routine as 
KEYWORD (called above when Indisk is pulling in source code 
characters). The only difference between them is that KEYWORD 
extends ? to the word PRINT in LABEL, the source code buffer, 
KEYWAD extends tokens into BABUF, the comment buffer. 

PULLRX (660-680) is quite similar to PULLREST. However, 
PULLRX is a pure suction routine. It pulls in the rest of a com- 
ment line, but doesn’t store any of the characters. It is called 
upon when the PRINTFLAG is down and nothing needs to be 
printed to screen or printer. All PULLRX does is get us past the 
comment to the next physical line. 

MPULL (690-750) is the exit from Indisk back to Eval after a 
commented line has been handled. Recall that there are two 
kinds of comments—those which take up an entire physical line 
and those which take up only the latter part of a line, those 
which come after some real source code. MPULL distinguishes 
between them after first checking to see if we’re at the end of 
the entire program (ENDPRO). It loads in the A variable. If A is 
holding a zero, that would mean that the semicolon was the first 
character in the physical line, and consequently, the entire line 
was a comment and can be ignored. There’s nothing to as- 
semble. So we PLA PLA to get rid of the RTS address and JMP 
directly to STARTLINE in Eval to get a new physical line. 
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Y Is the Pointer 

Alternatively, if the semicolon was not at the start of the line, 
the value in the A variable will be higher than zero, (The Y 
Register was stored in A when a semicolon was first detected 
[290].) Y keeps track of which position we are currently look- 
ing at within each physical line. In cases where there is some 
source code on a line for Eval to assemble, we just RTS (750) 
back to Eval where the evaluation routine begins. 

The end of the main Indisk loop is between lines 760 and 
950. This section is an extension of the character-testing se- 
quence found between lines 220 and 270. What's happening is 
that a single character is being drawn in from the source code 
(on a disk file or within RAM memory, depending on which ver- 
sion of LADS you are using). Each character is tested for a vari- 
ety of conditions: pseudo-ops, keyword tokenization, hex 
numbers, end-of-line (220), colon (240), and semicolon (270). If it 
was a semicolon, we dealt with it before making any further 
tests. The semicolon (comments) handler is the large section of 
code we just discussed (between lines 290 and 750). If the 
character isn’t a semicolon, however, there are several other spe- 
cial cases which we should test for before storing the character 
into LABEL, the source code buffer. 


Special Cases 
Is it a > pseudo-op? If so, we go to the routine which handles 
that (770) called HI. Is it the < pseudo-op? Then go to the LO 
routine. Is it the plus sign, signaling the + pseudo-op? If not, 
jump over line 820. The + pseudo-op is handled elsewhere in 
LADS; all we do for now is set up the PLUSFLAG (820). Is it the 
*=, the Program Counter changing pseudo-op? If so, go to the 
subroutine which fixes that (850). Is it one of the pseudo-ops 
which start with a period, like .BYTE or .FILE? If so, go to the 
springboard to the subroutines which deal with these various 
pseudo-ops (870). Is the character a $, meaning that the source 
code number which follows the $ should be translated as a hex 
number? If so, go to the hex number routine springboard (890). 
The final test is for tokenized keywords (? for PRINT). To- 
kens all have a value higher than 127, so their seventh bit will 
be set. If the character is lower (BCC) than 127, we can finally 
add the character to the source code line we're building in the 
LABEL buffer (930). Then we raise the Y Register to point to the 
next available space in the LABEL buffer, and return to fetch the 
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next available space in the LABEL buffer, and return to fetch the 
next character of source code from disk or RAM memory (950). 

This ends the main loop of the Indisk routine. As you see, 
there are many tests before a character can be placed into the 
LABEL buffer. We only want to give Eval source code that it can 
assemble. We can’t give it characters like . or + or $ which it 
cannot evaluate properly. Those, and other special conditions, 
are worked out and fixed up by Indisk before LADS turns con- 
trol back to the Eval subprogram. 


The Colon Logical End-Of-Line 

One special condition is the colon. It is handled at the very start 
of Indisk as a new physical line is analyzed (110). Not much 
needs to be done with colons except to ignore them. But we do 
need to prevent LADS from trying to locate the next physical 
line number. Colons signify the end of a logical line, not the end 
of a physical line. COLFLAG tells Indisk not to look for a line 
number. COLFLAG is set whenever a colon is detected (260). We 
jump down to COLON (970) and set the flag. We don’t need to 
LDA #1:STA COLFLAG because we wouldn’t be here unless the 
Accumulator was holding a colon character (it’s higher than 0). 
We can just stuff that character into COLFLAG. As long as a flag 
isn't holding a 0, it’s set. When setting flags, it doesn’t matter 
that the number in the flag is higher than 1. Just so it’s not 0. 

There are two springboards at 990-1020. Recall that branch 
instructions like BNE cannot go further than 128 bytes in either 
direction, so you'll get a BRANCH TOO FAR error message 
from LADS from time to time when you exceed this limit. In 
such cases, just BNE SPRINGBOARD; just branch to a line you 
insert, like 990, which just has a JMP to your true target. 

Like the . pseudo-op interpreter subroutine, the hex trans- 
lator is also too far from the branch which tries to reach it. With 
a hex number, though, we first put the $ into the LABEL buffer 
so it will be printed when the source code line is sent to the 
screen or printer. Then we bounce off to the hex translator sub- 
routine (1020). 

KEYWORD (1040-1210) translates one of BASIC’s tokens 
into a proper English word. A BASIC word like PRINT is a word 
to us programmers, but an action, a command, to the computer. 
To save space, many versions of BASIC translate the words into 
a kind of code called “tokens.’’ The token for PRINT might be 
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the number 153, which can fit into a single byte. The word 
PRINT takes up five bytes. 

But BASIC itself must detokenize when it lists a program. Tt 
must turn that 153 back into the characters P-R-I-N-T. To do 
that, it keeps a table of the keywords in ROM. We'll take advan- 
tage of that table to do our own detokenization. 

The specifics of the example we'll examine here are for 
Commodore computers. The principle, however, applies to Ap- 
ple and Atari as well. Only the particular numbers differ. We ar- 
rive here at KEYWORD because we picked up a character with a 
value higher than 127. The first thing we do is subtract 127. 
That will give us the position of this keyword in the table of 
keywords. To see how this works, look at how these words are 
stored in ROM memory: 


enDfoRnexTdatA 


Notice that BASIC stores words in this table with their last 
letter shifted, similar to the way LADS stores labels with their 
first letter shifted. That’s how the start of each word can be de- 
tected. The code for these words is set up so that END = 128, 
FOR = 129, NEXT = 130, and so on. 

Imagine that we picked up a 129 and came here to the 
KEYWORD subroutine to get the ASCII form of the word, the 
readable form. We would subtract: 129 — 127 = 2. Then we 
would look for the second word in the table. We store the results 
of our subtraction in the variable KEYNUM (1060) and keep 
DECing KEYNUM until it’s zero and we’ve thus located the 
word. We look at the first character in the table of keywords. It 
will be an e. If it’s not a shifted character, we’ve not yet come to 
the end of a word, and we keep looking (1120). Otherwise, we 
go back and DEC KEYNUM. All of this is just a way of counting 
through the keyword table until we get to the word we’re after. 
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When we find it (1140), we store the ASCII characters from 
the table into LABEL, our main input buffer. Again, a shifted 
character in the table shows us that we've reached the end of the 
word (1160), and we can return to the caller (the routine we 
JSRed here from) after clearing out the seventh bit. 

KEYWORD turns this line (in the source code): 

100 START? LDA [IT (two embedded keyword tokens, ? and [) 
into: 
100 STARTPRINT LDA RUNIT (which we can read from screen or 
printer) 

The HI subroutine (1230) handles the > pseudo-op which 

gets the high byte of a two-byte label as shown in Listing 6-1. 
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This sort of thing is fairly common during the initialization 
phase of an ML program. It prepares for the useful Indirect Y 
addressing mode (sometimes called Indirect Indexed addressing: 
LDA (LABEL),Y). The > and < pseudo-ops make it easy to set 
up the zero page pointers upon which Indirect Y addressing 
depends. 

The adjustments necessary to make these pseudo-ops work 
are performed in the Equate subprogram. All we do here is set 
up the BYTFLAG to show which of them was encountered. 
BYTFLAG is 0 normally, set to 1 for a < low byte request and 2 
for a > high byte request. Then we go back to fetch the next 
character in the source code. The > and < symbols are not 
stored in the LABEL buffer. 


Don’t Drive with Your Legs Crossed 

The STAR subroutine (1300) deals with the pseudo-op which 
changes the Program Counter. This pseudo-op has one primary 
use: It creates a stable place for tables. Some people like to use it 
to make room for tables within source code (and consequently 
within the resulting object code too). That seems both un- 
necessary and dangerous, like driving with your legs crossed. 
Most of the time it won’t do any damage, but when it does 
cause problems, it causes a crash. 

If you like to live dangerously, go ahead and stick a table 
or a buffer right in the middle of your code. The *= pseudo- 
op allows coding as shown in Listing 6-2. When assembled, 
that risky trick will look like the listing shown in Listing 6-3. 
This example leaves—between $325 and $357—a 50-byte- 
long zone to be used for data rather than instructions. You 
must jump over the table. But what’s the point? Why not do 
the sensible thing and put all your tables, register, buffer, 
etc.—all your nonprogram stuff—in one place? At the end of 
the entire program. Not only does that ease your program- 
ming task by making it simple to understand what you’re try- 
ing to do, it also allows the *= pseudo-op to make its true 
contribution to assembling: a stable table. 

When you're assembling a long program, you will often go 
through a two-step process. You'll assemble, then test. The test 
fails. You change the source code and try it again. This assemble- 
test rhythm takes place so often that you'll want to make it as 
easy on yourself as possible. One of your best debugging tech- 
niques will involve running your code and then looking in the 
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buffers, registers, variables, and other temporary storage places 
to see just exactly what is there. That’s usually the best clue to 
what went wrong. If you are trying to load in the word 
TEXTFILE from disk and your buffer holds EXTFILEO, that tells 
you exactly what you need to do to fix up the source code. 

In other words, you want to be able to check buffers, vari- 
ables, etc., often. Where are they located in the object code? Ob- 
viously, each time you make a slight change to the source code, 
everything in the object code above the change in memory 
shifts. All the addresses beyond the changed source code will go 
up or down depending on whether you added or subtracted 
something. 


Stabilizing Buffers 
This makes for very unstable addresses. You would never know 
where to PEEK at a particular buffer or variable. 

There are two ways to solve this. You could put the data 
buffers, etc., at the start of your program. That way, they 
wouldn’t shift when you changed the source code beyond them. 
But that’s somewhat clumsy. That means that your program 
doesn’t start with the first byte. The entry to your program is up 
higher, and you can’t just SYS or CALL or USR to the first byte. 

An alternative, and likely the best, idea is to put tables at 
the very end. That way the SYS to the object code start address 
is also the first byte of the ML program. But how does this solve 
the shifting tables problem? That’s where the *= comes in. 

When I first started to write LADS, I decided to start it at 
$3A00. That left plenty of room below for BASIC-type source 
files and plenty of room above for ‘“Micromon,” an extended 
debugging monitor program which sits in memory between 
$5B00 and $7000. (I do all my programming on the venerable, 
but serviceable, Commodore PET 8032.) LADS was expected to 
end up using about 4K of memory, so I forced Tables, the final 
source file, to detach itself from the rest of the program and to 
assemble at $5000. The Tables subprogram started off like this: 
10; TABLES 
20 *= $5000 
30 MNEMONICS etc. 

This kept everything in the Tables unaffected by any 
changes in the program code below it. The entire source code 
could be massaged and manipulated without moving the data ta- 
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bles one byte up or down in memory. A detached table is a sta- 
ble table. 

So, during the weeks while LADS was taking shape, I 
learned the addresses of important buffers like LABEL and im- 
portant variables and flags. That makes debugging much faster. 
Sometimes, I could tell what was wrong by simply PEEKing a 
single flag after a trial run of the source code, 

A program the size of LADS, a complex game, or any other 
large ML program, will require perhaps hundreds of assemblies. 
It becomes very useful to have learned the special addresses, like 
buffers, where the results of a trial run of your object code are 
revealed. And for this reason, these buffer and flag addresses 
should stay the same from the day you start programming until 
the day the entire program is composed. 

How is the *= pseudo-op handled? Before anything else, 
we pull in the rest of the source code line by a JSR to 
STINDISK, the main loop in Indisk. After that, STAR checks to 
see if anything should be printed out by looking at PASS. On 
pass 1, we'll skip over the printout (1320). Otherwise, we print 
the star and the input line held in the LABEL buffer. We won’t 
check to see if a printout is requested by looking at PRINTFLAG 
or SFLAG (screen printout). *= is such a radical event that it 
will be displayed on pass 2 whether or not any printouts were 
requested. 

Then we come to the familiar hex or decimal number ques- 
tion. Hex numbers are translated and put into the RESULT vari- 
able as they stream in. Indisk does hex. Decimal ASCII isn’t 
automatically put into RESULT. If the argument following *= 
was hex, we skip over the next few lines (1380). If not, we look 
for the blank character (in *= 500, the character between the = 
and the 5). Finding that (1420), we point the TEMP variable to 
the ASCII decimal number and JSR VALDEC to give the correct 
value to RESULT. We'll use RESULT to adjust the PC as 
requested. 


Padding the Disk File 

If the programmer wants object code stored to disk, we cannot 
just change the internal LADS program counter. The disk 
drive won't notice that. We’ve got to pad the disk program: 
We've got to physically send spacer bytes to the disk to move 
its pointer the correct number of bytes forward. Object code is 
stored only on pass 2. 
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Thus, two questions are asked here. Does the programmer 
want object code stored? And is the disk drive a recipient of 
that object code? If the answer to both questions is “yes,” we 
JSR FILLDISK (1590), a padding routine we'll come to later. If 
not, the whole issue of disk padding doesn’t matter and we 
can proceed to adjust the PC (SA is the variable name of the 
LADS Program Counter) by transferring RESULT into it (1600- 
1630). Then we PLA PLA the RTS off the stack and jump back 
into Eval to get the next physical line. 

ENDPRO is a short but essential routine. After each phys- 
ical line we need to see if we’ve reached the end of the source 
code program. Microsoft BASIC signals the end of a BASIC pro- 
gram with three zeros. 

But before checking for those telltale zeros, ENDPRO fills 
the buffers with zeros to clean them (1680-1710), 

Then it pulls in the next two characters. If the second one is 
a zero, we know it’s the end of a source file (not necessarily the 
end of a series of chained source files; that’s flagged by the END 
pseudo-op). However, if it is the end of a program file, we flip 
the ENDFLAG up to warn Eval and RTS back to Eval (1790). 
Even though Indisk has discovered that we're at the same last 
line in a file, Eval still has that last line to evaluate and as- 
semble. The ENDFLAG won't have any immediate effect when 
we first return to Eval. 

The other possibility is that we won’t find the three zeros 
and that this isn’t the last line of a file. If it isn’t, we just set the 
COLFLAG down because at least we're at the end of a physical 
line. A zero always means that. Then we return to Eval. Indisk 
just pulls in one line at a time. 


Hex Conversions 

HEX is an interesting routine. It is called when Indisk detects the 
$ character. HEX looks at the ASCII form of a number like $0F 
and turns it into the equivalent two-byte integer 00 OF in RE- 
SULT. It’s similar to the subprogram Valdec which translates an 
ASCII decimal number into an integer. 

HEX operates like a little Indisk. It pulls in characters from 
the source code, storing them in its own special buffer, HEXBUF, 
until it finds either a zero, a colon, a blank, a semicolon, a 
comma, or a close parenthesis character. Each of these symbols 
means that we've reached the end of the hex number. Some of 
them signal the end of a line, some of them don’t. Whichever 
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category they fall into, they go to the appropriate routine, DECI 
or DECIT. 


Busy X and Y 

If we’re not yet at the end of the hex number, however, the 
character is stored in HEXBUF (1970) for later translation and 
also stored in LABEL for printout. Notice that both the X and the 
Y Registers are kept busy here, indexing their respective buffers. 
Y cannot do double duty because it is farther into the LABEL 
buffer than X; the LABEL buffer is holding the entire logical line, 
HEXBUF is holding only the ASCII number. The two buffers will 
look like this when the source line HERE LDA $45 is completely 
stored: 


LABEL HERE LDA $45 
HEXBUF 45 


LABEL will be analyzed and assembled by Eval. It needs to 
store the entire logical line. HEXBUF will be analyzed only to ex- 
tract the integer value of the hex number. Storing anything else 
in HEXBUF would be confusing. 

A hex number which is not at the end of a line goes to 
DECIT (2020) and, the length of the hex number is stored into 
the variable HEXLEN (2020) so we'll know how many ASCII 
characters there are to translate into an integer. Then the final 
character (a comma or whatever) is put into the LABEL buffer. 
Then the JSR to STARTHEX (2050) translates the ASCII into an 
integer in RESULT. A JMP (rather than a JSR) to STINDISK pulls 
in the rest of the logical line and takes us away from this area of 
the code. The assembler will not return to this area. It will treat 
the rest of the line as if it were an ordinary line. 

By contrast, a hex number which is at the end of a line goes 
to DECI (2070), and we store the type of end-of-line condition 
(colon, semicolon, 0) in the variable A. We put the length of the 
hex number into the variable HEXLEN (2090), so we'll know 
how many ASCII characters there are to translate into an integer. 
And we put a 0 delimiter at the end of the information in the 
LABEL buffer. Then the JSR to STARTHEX (2110) translates the 
ASCII into an integer in RESULT. We restore the colon or semi- 
colon or whatever (2120) and jump to the routine which pro- 
vides a graceful exit (2130). 


ASL/ROL Massage 
STARTHEX turns a hex number from its ASCII form into a two- 
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byte integer. It does this by rolling the bits to the left, pulling the 
number into RESULT’s two bytes, and adjusting for alphabetic 
hex digits (A—-F) as necessary. 

The variable HEXLEN knows how many characters are in 
the hex number. It will tell us how many times to go through 
this loop. Before entering the loop, we clean the RESULT vari- 
able by storing zeros into it (2140-2160) and set the X Register to 
zero. 

The loop proper is between lines 2180 and 2350, and is 
largely an ASL/ROL massage. Each bit in a two-byte number is 
marched to the left. ASL does the low byte, ROL the high byte. 
ASL moves the seventh bit of RESULT into the carry. ROL puts 
the carry into the zeroth bit of RESULT+1, the high byte. 

As an example of how this ASCII-to-integer machinery 
works, let’s assume that the number $2F is sitting in the 
HEXBUF. As ASCII, it would be 2F. But recall that the ASCII 
code simplifies our job somewhat since the number 2 is coded as 
$32. To turn an ASCII hex digit into a correct integer, we can get 
rid of the unneeded 3 by using AND #$0F. 


Alphabetic Numbers 

What complicates matters, however, is those alphabetic digits in 
hex numbers: A through F. For them, we’ll need to subtract 7 to 
adjust them to the proper integer value. They, too, will have the 
high four bits stripped off by AND #$0F. 

Let’s now follow $2F as it rolls into RESULT. $2F, as two 
ASCII digits in HEXBUF, is: $32 $46 or, in binary form, 
00110010 01000110. 

HXLOOP starts off by moving all the zeros in RESULT four 
places to the left. There are four ASL/ROL pairs. The first time 
through this loop, just zeros move and there’s no effect. Then 
we load in the leftmost byte from the HEXBUF (2260) and see if 
it’s an alphabetic digit. This time we're loading in the $32 (the 
ASCII 2), so it isn’t alphabetic and we branch (to 2300) for the 
AND which strips off the four high bits: 


00110010 ($32, as ASCII code digit) 
AND 00001111 ($0F) 
00000010 (now a true integer 2) 
The ORA command sets a bit in the result if either of the 


tested bits is set. That’s one way of stuffing a new value into 
RESULT: 
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00000000 (RESULT is all zeros at this point) 
ORA 00000010(we're stuffing the integer 2 into it) 
00000010 (leaving an integer 2 in RESULT) 


Next the X index is raised and compared to the length of the 
ASCII hex number (in our example $2F, HEXLEN will hold a 2). 
X goes from 0 to 1 at this point and doesn’t yet equal HEXLEN, 
so we branch back up (2350) to the start of the loop and roll the 
2 into RESULT, making room for the next ASCII digit: 

Carry bit high byte low byte 
0 00000000 00000010 (our 2 before first ASL/ROL) 


0 00000000 00000100 (after) 

0 00000000 00001000 (after the 2nd ASL/ROL) 

0 00000000 00010000 (after the 3rd ASL/ROL) 

0 00000000 00100000 {after the 4th and final ASL/ 


ROL) 


What’s happened here is that we’ve shoved the 2 from the 
low four bits into the high four bits of RESULT. This makes 2 
(decimal) into 32 (decimal), or $20. Why do that? Why make 
room for the next digit in this way? Because the 2 in $2F is really 
a hex $20. It’s a digit 2, but not number 2. It’s not a number 2 
any more than the 5 in 50 is a 5. This ASL/ROL adjusts each 
digit to reflect its position, and position determines the numeric 
value of any digit. 


Alphabetic Adjustment 
Now it’s time to pick up the F from HEXBUF (2260), and since it 
has a decimal value of 70, it is higher than 65, so we adjust it by 
subtracting 7. That leaves us with 63 ($3F). We strip off the 3 
with AND $0F: 

00111111 ($3F, the adjusted ASCII code digit) 

AND 00001111 ($0F) 
00001111 (now a true integer F) 


and then incorporate this F with the $20 we’ve already got in 
RESULT from the earlier trip through the loop: 
00100000 (RESULT is holding a $20) 
ORA 00001111 (we stuff the F into it) 
00101111 (leaving the integer 2F in RESULT) 
Again, X is raised and tested to see if we’re finished with 
our ASCII hex number (2340). This time, we are finished. There’s 
nothing more to roll into RESULT so we set up the HEXFLAG. 
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This alerts all interested parties in LADS that they do not need 
to evaluate this argument. The value is already determined and 
has been placed into RESULT, ready to be printed out or POKEd 
as the need arises. Then we return to whatever routine called on 
STARTHEX for its services. 


Pseudo-op Preliminaries 
The important pseudo-op .BYTE is also handled within the 
Indisk subprogram. Any pseudo-op beginning with . comes here 
to PSEUDO] (2410) first. All of these . type pseudo-ops require 
certain preliminary actions, and the first section of PSEUDO] 
accomplishes those things. Then they split up and go to their 
own specific subroutines. Most of them end up going to the sub- 
program Pseudo. 

PSEUDO] first tests to see if there is a PC address-type label 
such as the word OPCODES in: 


100 OPCODES .BYTE 161 160 32 96. 


The Y Register will still hold a zero if the . character is de- 
tected at the very start of a logical line of source code. That 
would mean that there is no PC-type label and we don’t need to 
bother storing it into the label array for later reference. Likewise, 
if this isn’t pass 1, we can also skip storing such a label in the la- 
bel array. 

But if it is pass 1 and there is one of those labels at the start 
of the line, we need to save the A and Y Registers (2450-2470) 
and JSR EQUATE to store the PC label (and its address) into 
LADS’ label array. Then we restore the values of A and Y (2490- 
2510) and store the . character in the main input buffer LABEL. 


If It’s Not B 

The character following the . will tell us which pseudo-op we're 
dealing with, so CHARIN pulls it in and stores it into the buffer 
(2550). If it’s not a B, we branch to the springboard PSEUD1 
which sends us to the Pseudo subprogram for further tests’ 
(3010). 

Now we know it’s a .BYTE type, but is it the ASCII alpha- 
betic type or the ASCII numeric type? It is BYTE “ABCDE or 
BYTE 25 72 1 6? 

There is a flag which distinguishes between alphabetic and 
numeric .BYTEs: the BNUMFLAG. It is first reset (2600), and we 
check both the pass and the SFLAG to decide whether we: 
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should print out this line or not. If it’s pass 2 and SFLAG is set, 
we print the line number and the PC address. Then we pull in 
more of this source code line until we hit a space character. If 
the character following the space isn’t a quote, we know that 
we're dealing with the numeric type of .,BYTE, so we branch 
down to handle that at BNUMWERK (2810). 

Otherwise, we take care of the alphabetic type. This type is 
easy. We can just pull them in and POKE them. There’s nothing 
to figure out or translate. These bytes are held in the source code 
as ASCII characters and will be POKEd into the object code as 
ASCII characters. The main use for this pseudo-op is to store 
messages which will later be printed to the screen or printer. 


End-of-Line Alternatives 

The active parts of this loop are the CHARIN (2820) and the JSR 
INCSA (2990) or JSR POKEIT (3050). The decision whether to 
simply raise the PC with INCSA or actually POKE the object 
code is based on the test of PASS (2970). The rest of the loop 
(2830-2960) is similar to other tests for end-of-line conditions 
found throughout LADS. We look for a 0 (2830), a colon (2850), 
a semicolon (2880), and a concluding quote (2940). Any of these 
characters signal the end of our alphabetic message. And each 
condition exits in a way appropriate to it. Semicolons, for exam- 
ple, require that the comment be stored in BABUF for possible 
printout. To do this, we JSR PULLREST (2900). 

PSLOOP stores each character into LABEL, the main input 
buffer. It also JSRs to the POKEIT routine (in the Printops sub- 
program) which both stores the character in any object code on 
disk or memory and raises the PC by 1. Then it jumps back up 
to the start of the loop to fetch another alphabetic character 
(3080). 


Numeric .BYTE 

BNUMWERK is more complicated than BY1, the alphabetic 
.BYTE pseudo-op we just examined. BNUMWERK must not only 
check for all of those possible end-of-line conditions; it must also 
translate the numbers following .BYTE from ASCII into one-byte 
integers before they can be POKEd. It’s that same problem we've 
dealt with before: 253 is stored in the source code as three bytes: 
$32 $35 $33. We need to turn it into a single value: $FD. (One 
thing simplifies the numeric type .,BYTE pseudo-op. The pro- 
grammer can use only decimal numbers in the source code for 
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this pseudo-op. .BYTE $55 $FF is forbidden, although you could 
certainly add the option if you wish.) 

Like a small version of the Eval subprogram, BNUMWERK 
has to have a flag which tells it when to close down. We set this 
BFLAG down (3100) and then put the character in the Accu- 
mulator into a buffer called NUBUF. In this buffer we’ll convert 
these decimal ASCII numbers into integers. Then we raise X to 1 
and enter the main BNUMWERK loop (3130). 

The BFLAG is tested, and we shut down operations if it is 
set (3140). Otherwise, we pull in the next character and go 
through that familiar series of tests for end-of-line conditions: 0, 
colon, or semicolon. If it is a regular character, we stick it into 
the special BUFM buffer (3250) and check to see what pass we’re 
on. On pass 1 we don’t do any POKEing or printing out, so we 
can skip that. But on pass 2, we check to see if we've got a space 
character, indicating that we’ve reached the end of a particular 
number, if not yet the end of an entire line (3360). If the number 
is completely in the buffer, we raise the PC and go back for the 
next number (3320). 

On the second pass, however, we may have to POKE object 
code and also provide printouts. This means that we have to 
both calculate each number for POKEing as well as store each 
number in ASCII form for printouts. We pull the character from 
the BUFM buffer and store it in the printout buffer, LABEL, the 
main input buffer (3340). After that we check again for end-of- 
number or end-of-line conditions (3360-3410) and, not finding 
one, return for another character (3440) after storing the current 
character in HEXBUF. 

An end-of-line condition lands at BSFLAG (3450), which 
alerts BNUMWERK that it should exit the loop after the current 
number in HEXBUR has been analyzed. 


A Huge, and Incorrect, Number 

WERK? (3480) performs the analysis of a single number. It 
points the TEMP variable to NUBUF where the number is stored 
and JSRs to VALDEC, leaving the value of the number in RE- 
SULT. Then the value is POKEd to the disk or RAM object code 
(and the PC is raised by 1) (3550). 

So that nothing will be left over to confuse VALDEC during 
its analysis of the next number, NUBUF is now wiped clean with 
zeros. VALDEC expects to find 0 at the end of an ASCII number 
that it’s turning into an integer. If that 0 isn’t there, VALDEC will 
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keep on looking for it, creating a huge, and incorrect, answer. 
Then we return to the main loop and look for another 
character, the start of another number (3620). 


Graceful Exits 

There are so many options in LADS that graceful exits from 
routines like BNUMWERK are rather difficult. We cannot just 
simply RTS somewhere. We've got to take into account several 
sometimes conflicting conditions. 

LADS can get its source code from two places: disk or RAM 
memory. The source code can be entirely within a single pro- 
gram file or spread across a chain of linked files. LADS can as- 
semble hex or decimal numbers from source code (except within 
the .,BYTE pseudo-op). The assembler can send its object code to 
four places: disk, screen, RAM memory, or printer. All or any of 
these targets can be operative at any given time. And output can 
be turned on or off at will. No wonder there have to be different 
exits and some testing before we can leave a pseudo-op. We’ve 
got to figure out what’s expected, where the object code is going. 
Finally, the fact that logical lines of source code can end in sev- 
eral ways adds one additional complication to the exit. 

BBEND is the start of exit testing for BNUMWERK. On pass 
1 we have to raise the PC one final number (3650). If the line 
ends with a colon, we cannot go to ENDPRO and look for a 
new line number, since colons end logical, not physical, lines of 
source code (3680). In either case, we set the COLFLAG up or 
down, depending on whether or not we’ve got a colon-type end- 
ing to this logical line (3700), We then raise the LOCFLAG to tell 
Eval to print a PC-type address label and PLA PLA, pulling the 
RTS off the stack in preparation for a JMP back to Eval. If it’s 
pass 1 or if the printer printout flags are down, we don’t need to 
print anything, and we JMP into Eval at STARTLINE to fetch a 
new line of source code (3790). 

Alternatively, if it’s pass 2 or if the PRINTFLAG is up, we 
go back into Eval at PRMMFIN where comments following 
semicolons are printed (3780). 

FILLDISK (3810) takes care of a problem created by using 
the *= pseudo-op with disk object code files. Recall that if you 
wrote source code like: 

10 *= 900 
100 START INY 
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110 *= 950; leave room here 
120 INX; continue on 


LADS would normally store the INY and follow it immediately 
on a disk file with INX. The PC variable (SA) within LADS 
would have changed. The INX object code being POKEd to 
RAM would be stored correctly at address 950. But the INX 
would go to disk at address 901. The disk is receiving its object 
code bytes sequentially and doesn’t hear about any PC changes 
within the computer during assembly. 

FILLDISK subtracts the old PC value from the new adjusted 
PC value and sends that number of filler bytes to a disk object 
file. In the example above, 900 would be subtracted from 950, 
and 50 bytes would be sent as spacers to the disk. This creates a 
space between INY and INX, a physical space, which will cause 
the object file to load into the computer with the correct, ex- 
pected addresses for each opcode. 

A secret is revealed here. There are two full passes, but 
LADS starts to try for a third pass. It is quickly shut down be- 
cause during this pass the ENDFLAG is up and STARTLINE will 
detect it. Nevertheless, we cannot store more bytes during this 
brief condition. Bytes must be stored only on pass 2, not on pass 
1 or that temporary attempt at a pass 3 (3840). 


Starting the Countdown 

If FILLDISK is called upon to act, however, it acts. The disk ob- 
ject file (file #2) is opened (3860), and the old PC is subtracted 
from the new one (3880-3940). The Accumulator is loaded with a 
0 and we start the countdown; the result of our subtraction, in 
the variable WORK, is decremented for each 0 sent to the disk 
object file (3960-4000). If WORK hasn’t counted down to zero, 
we continue with this loop (4010 and 4030). Finally, we restore 
the normal I/O and then return to the caller. 

The final subroutine on Indisk is functionally identical to 
KEYWORD. It turns a token into an ASCII word (turns ? to 
PRINT), but it sends its results to the BABUF buffer which stores 
all comments. KEYWORD sends its results to the main buffer 
LABEL for source code lines. To follow the logic of this sub- 
routine, see the discussion of KEYWORD earlier in this chapter 
(line 1040 on). 

Now we can turn our attention from LADS input to LADS 
output. The bulk of the next chapter explores the four destina- 
tions of assembled code: screen, printer, disk, or memory. 
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Math and Printops: 
Range Checking and 
Formatted Output 


Math, a short subprogram, has a rather limited job. It is de- 
signed to turn the ASCII number following the + pseudo-op 
into a two-byte integer and to save it in the variable 
ADDNUM. Later, when the final RESULT is calculated by the 
Valdec subprogram, anything in ADDNUM will be added to 
RESULT. Math responds to a source code line like: 


100 SCREEN = $0400 
120 LDA SCREEN + 256; this would assemble as $0500 


As with the .,BYTE pseudo-op, the + pseudo-op allows 
only decimal numbers as an argument following the +. 

The first loop in the Math subprogram simply looks along 
the LABEL buffer to locate the +. Thus, it doesn’t matter if 
the + is right next to its label. You could write 
SCREEN +256 as well as SCREEN + 256, However, find- 
ing the +, the subroutine expects to find no spaces between 
the + and the number to be added. +256 is correct. + 256 
would be incorrect. This allows us to test for a variety of end- 
of-number conditions. That means that you can use the + 
pseudo-op within such addressing modes as LDA 
(SCREEN + 256),Y or LDA 1500+ 25,Y. 

Each character following the + is stored in HEXBUF for 
later translation by Valdec. Each is also tested to see if it is a 
nonnumber—f it is outside the range from 47 to 58, the 
ASCII code for the digits 0-9. Anything outside that range 
ends our storage of the number to be added, and we go down 
to put the number into ADDNUM. 

Range checking is simple enough. Just remember to test 
against a number which is one lower than the low end and 
one higher than the high end of the range. For example, to see 
if a number is lower than $30, you must test against $2F. 
That’s because BCC tests for lower than. $30 wouldn't be 
lower than $30. The same thing works on the high end. To 
test for numbers higher than $39, you CMP #$3A. 

After the number is set up in HEXBUF, we point TEMP to 
it, JSR to Valdec, and move the result from RESULT into the 
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variable ADDNUM. It will wait there until, on pass 2, the Ar- 
ray subprogram makes the addition adjustment in line 1160. 


Printops: The Output Routine 
One important function performed by the Printops sub- 
rogram is raising the PC (Program Counter). A subroutine 
called INCSA (650) increases the PC by one for each object 
code byte, whether this byte is an opcode or the argument of 
an opcode. Printops’ other main job is to send each byte of 
object code to one of four places: RAM memory, disk, screen, 
or printer. 

Because each object code byte can go to any one, or all, of 
these four different destinations, there are a series of tests and 
parallel routines within Printops. For one thing, Printops has 
little to do on pass 1—it does raise the PC, but nothing is 
POKEd anywhere or printed to screen or printer until the sec- 
ond pass. 

Also, Printops has three entry points, depending on 
whether the Eval subprogram has assembled a one-, two-, or 
three-byte logical line. An INY would only JSR from Eval to 
FORMAT, right at the start of Printops. FORMAT loads the 
OP (opcode) and stores it and prints it as required. It’s a 
single-byte event. LDA 15 first JSRs to FORMAT to output the 
opcode, the numeric equivalent of LDA, then enters at 
PRINT2. LDA 1500 would JSR FORMAT to send the opcode, 
then enter at PRINT3. These entry decisions are made by Eval 
after it has determined whether it’s dealing with a one-, two-, 
or three-byte addressing mode. 

FORMAT (20) simply raises the PC by one. It does this 
with a JSR to INCSA (40) on pass 1. On pass 2, however, it 
also checks to see if screen printout was requested (60). If so, it 
restores normal I/O and prints the number (120). As we will 
see, PRINTNUM also prints to the printer, if that was re- 
quested. Then the opcode is POKEd to disk or RAM, if that 
was requested. The POKEIT subroutine performs POKEs to 
RAM. POKEIT also leads right into INCSA to raise the PC 
automatically following each POKE. Finally we RTS back to 
Eval (160). So much for a single-byte addressing mode. 


Two-Byte Addressing Modes 
PRINT2 (180) handles LDA 15 and other two-byte addressing 
modes. Like FORMAT, pass 1 only results in a JSR INCSA (to 
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raise the PC). Pass 2 follows the same pattern as FORMAT, 
explained above. The major difference is that the number 
fetched before the JSR to PRINTNUM comes from the low 
byte of the RESULT variable (240) rather than OP. This is a 
single-byte argument addressing mode. 

PRINT3 (290) parallels the two previous routines, except 
that it handles a two-byte argument. On pass 1 it JSRs to 
INCSA twice to raise the PC by two. 

On pass 2, it prints (370) and POKEs (390) the low byte of 
RESULT if requested and then prints (460) and POKEs (480) 
the high byte of the argument, RESULT+1. A formatting 
problem is handled in line 420. HXFLAG shows whether or 
not output to screen and printer is supposed to be in hex. If 
this flag is set, we don’t need to print a space between the low 
and high bytes of the argument. The hex printing routine will 
do that for us. If printout is in decimal, though, we need to 
print a space (440). 


Creating an Object Program 

POKEIT (490) stores the byte in the X Register at the current 
PC address if the POKEFLAG is up. This flag indicates that 
the programmer used the .O pseudo-op, requesting that object 
code be stored in RAM memory during assembly. For both 
PRINTNUM and POKEIT, the X Register is holding the 
opcode or argument. X is saved in the variable WORK+ 1; 
some of the disk management routines below will change the 
value of X, so we must preserve it for later use. 

Then the DISKFLAG is checked (550). It indicates that the 
programmer used the .D pseudo-op, asking that an object code 
program file be created on disk during assembly. If not, we 
just go down to raise the PC at INCSA (560). 

But if an object program is being created on disk, LADS 
opens communication to file #2 (the write-to-disk file) and 
recovers the byte from WORK~+ 1 (600). The PRINT in 610 
will not go to screen or printer. Rather, the current channel is 
open to the disk object file and PRINT therefore sends the 
byte in the Accumulator to the disk. Then normal I/O is re- 
stored, and file #1 is accessed again. File #1 is the normal in- 
put source for LADS, the read-from-disk channel. Finally, we 
fall through to INCSA (650). 

Although it is one of the simplest events in LADS, INCSA 
is also one of the most important. On both passes, INCSA 
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raises the PC by 1 for each opcode byte and for each argu- 
ment byte. Much depends on the fact that INCSA keeps the 
Program Counter accurate during assembly. A single ignored 
byte would throw off all address-type labels which followed. 
(The HERE in 100 HERE LDA 15 is an address-type label.) In 
consequence, the entire assembled object program would be 
useless. INCSA just adds 1 to SA (the variable which holds 
the LADS internal Program Counter). Notice lines 690-710. 
They add 0 to the high byte of SA. What’s the point of that? 


The 256th Increment 

For every 255 increments, INCSA will have nothing to add to 
the high byte of SA. But on the 256th increment, it must add 
1 to the high byte. How does adding 0 to the high byte add 1 
to it? The carry flag. ADC means ADd with Carry. If the carry 
flag is set, the high byte is incremented. If the low byte is 
holding 255 when we add 1 to it (670), that will set the carry 
flag. 

The rest of the routines in this Printops subprogram handle 
the printout of a variety of things: messages, spaces, numbers, 
the PC address, a carriage return, a source code line number, a 
source code line, or an error message. And each of these print- 
to-screen routines has a sister routine. There is a parallel series of 
routines which print the same thing to the printer. 

PRNTMESS (740) will print any ASCII message. There are 
two special requisite preconditions: The message must be pointed 
to by the variable TEMP, and the message must end with a 0. 
PRNTMESS is a simple loop, but it can print any message you 
want. First the Y Register is set to 0 to act as an index to the 
message within LADS’ source code. Then the loop begins (750) 
by loading in a character from the message (750). If the character 
is 0, we exit the loop. Otherwise, the character is printed to the 
screen. Then we JSR to the sister routine, PTP, which will send 
the same character to the printer, if requested (780). The Y Reg- 
ister is raised, and we go back for the next character (800). 

PRINTSPACE (820) simply prints a space character to the 
screen and then checks with its sister routine, PTP, to see if the 
space should also be printed on the printer. 

Before printing a number, we first put it into the X variable 
for safekeeping. Then LADS has to make four tests: Is it printout 
to screen or to printer, and is it in decimal or in hex numbers? 
PRNTNUM (860) takes advantage of a routine in BASIC ROM if 
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LADS’ printout is in decimal (requested with the .NH, no hex, 
pseudo-op). When you ask BASIC to list a program, it turns inte- 
ger bytes into printable ASCII numbers to provide line numbers 
on the screen. On Commodore computers, the high byte of the 
integer is put into the Accumulator, the low byte into the X Reg- 
ister, and you JSR to within BASIC ROM where this routine re- 
sides (950). In LADS, the address of this ROM routine is called 
OUTNUM. It’s defined for each different computer model in the 
Defs subprogram. 


Hex Default 

LADS’ default, and probably the most common way to print out 
numbers during an assembly, is hex. LADS itself handles hex 
printing. If the HXFLAG is up (870), we JSR to HEXPRINT, a 
subroutine at the end of the Printops subprogram. We'll get to it 
in a minute. It’s the opposite of the HEX subroutine within the 
Indisk subprogram which changes hex numbers in ASCII format 
into integers. The HEXPRINT routine will take an integer and 
turn it into hex ASCII characters for printout. 

After the number has been printed to the screen, we JSR to 
the sister routine PTPNU (910) to also print it to the printer if 
necessary. Then the number is restored to the X Register from 
the X variable (920) before returning to the caller. 

PRNTSA (990) is similar to PRNTNUM. The main dif- 
ference is that PRNTNUM always prints the single byte sent to it 
in the X Register. By contrast, PRNTSA prints the two bytes in 
SA, the Program Counter variable. The same four possibilities 
are tested: printer, screen, hex, or decimal. PRNTSA’s sister rou- 
tine, PTPSA, is called upon from both the hex (1050) and the 
decimal (1100) versions of this routine. 

PRNTCR (1120) prints a carriage return; the 13 is the ASCII 
code for carriage return on both the screen and a printer. 
PRNTLINE (1160) prints out a line number from the source code. 
As each physical line is drawn into view by LADS, its line num- 
ber is stored in the LINEN variable. This routine also uses that 
OUTNUM routine from BASIC ROM which prints BASIC’s line 
numbers during a LIST. Line numbers, in BASIC or LADS, are 
always decimal. PTPLI (1190) is the sister routine for printer 
printouts. 

PRNTINPUT (1210) prints the contents of the main buffer. 
Those contents will be the most recent logical line of source code 
as it appeared in the source code. It uses the PRNTMESS routine 


183 


Math and Printops: Range Checking and Formatted Output 


which sends to the screen any ASCII message which is pointed 
to by the TEMP variable. The line must end in 0. PRNTMESS 
(740) handles the printer with the PTP, single-character, test. 
There is no need for a sister routine within PRNTINPUT. 


Error Alert 

ERRING (1280) performs the preliminaries to an error message 
printout. Such messages as SYNTAX ERROR or NAKED LABEL 
are triggered at various places within LADS. But most of them 
JSR to ERRING before printing out their particular messages. 
ERRING rings the bell first. The number 7 is the ASCII code 
which rings any bells attached to computers or printers. (This 
works on Apple and PET/CBM computers; the 7 is changed to 
253 in the Atari version to produce the same result. The VIC 
and Commodore 64 have no “bell,” so the character 7 will 
have no effect on those computers.) The purpose of the bell is 
to alert the programmer that an error has been detected. True, 
the error message will appear onscreen, but during an assem- 
bly of a large program, the programmer might well miss silent 
error messages sliding up the screen. 

On Commodore computers, the character 18 reverses the 
field of all subsequent characters on a line. This, too, highlights 
errors. Next (1320), the logical line of source code where the er- 
ror appears is printed, followed by a carriage return. 

It would be simple to make error reports more dramatic. 
You could stop assembly at that point with a key-testing loop 
that required the programmer to hit any key to continue. You 
could JSR FIN and exit to BASIC mode, aborting all further 
assembly. You could JSR PRNTLINE to emphasize the line num- 
ber in the source code where the error happened. You could ring 
the bell ten times. As with all other aspects of LADS, you can 
make it do what's efficient for you, what’s responsive to your 
own style of programming. Add some special effects here if you 
wish. Then reassemble your customized version of LADS. 


Sister Print Routines 

The next few routines are the printer routines: Each is a parallel, 
sister routine to one of the screen routines discussed above. Each 
tests the PRINTFLAG and returns if the flag is down, indicating 
that the user did not request a printout on paper. If the 
PRINTFLAG is up, output is redirected to the printer (1450-1470) 
by opening a file channel to the printer. On Commodore 
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computers, the printer is device #4. Then OUTNUM or PRINT 
or HEXPRINT sends the characters or numbers to the printer 
(1490, 1680, 1720, 1900, 1960, 2130). After that, normal I/O is re- 
stored (1500) and a channel is reopened to file #1, the input- 
source-code-from-disk mode. 

To follow the logic of PTP (1380), PTPNU (1560), PTPSA 
(1780), or PTPLI (2020), just look at the parallel routines which 
JSR to them. The purpose, the tests, and the logic are the same. 
The only difference is that the sister routines described above 
route their characters to the screen. These routines send charac- 
ters to a printer. 


Printing Hex Numbers 
The subprogram Printops concludes with HEXPRINT, an in- 
teresting routine which converts a one-byte integer into an 
ASCII hex string that can be printed to screen or printer. 
HEXPRINT operates on a single byte at a time. The byte is 
first stored temporarily on the stack with PHA (2200). Let’s use 
$4A as an example. The four high bits are stripped off with 
AND #$§0F, leaving $0A. That’s one of the characters we need to 
print. Then we can use a short, simple lookup table to extract the 
character by its position in the table. In the Tables subprogram is 
a minitable called HEXA (270). It looks like this: 


270 HEXA .BYTE “0123456789ABCDEF 


Since the number $0A (10 decimal) is also the tenth 
character in this table, we can just move the ANDed $0A over 
to the Y Register (2220) and load HEXA,Y to fetch the ASCII 
character for $0A, which would be 65 (the letter A). We can 
stick this character into the X Register; X isn’t being used else- 
where in this routine, so it can save the character for us while 
we look at the high bits. 
this time we move the four high bits right over on top of the 
four low bits. This takes four logical shifts right (2270-2300). 
After LSRing $4A we get $04. Again, we TAY and load the 
character 4 from the table (it’s 52 decimal). We print this. In 
$4A, the 4 comes first. Then we recover the A character from 
the X Register and print it right after the 4 (2350). 
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All pseudo-ops except .BYTE (and in-line ones like #< or +) 
are handled by the Pseudo subprogram. Eight pseudo-ops are 
tested for at the start of Pseudo (50-300). They are: .FILE, 
.END, .D, .P, .N, .O, .S, and .H. These tests and the asso- 
ciated JMPs are identical to an ON-GOTO multiple branch 
structure in a BASIC program. The rest of the Pseudo sub- 
program is a collection of subroutines which service these 
various pseudo-ops. 

If an unrecognized pseudo-op appears within the source 
code, an error message is printed out (340-460). If something 
like .X or .MAP appears, the line number, the start address, 
and the source code line are printed (350-390). The variable 
TEMP is set to point to the SYNTAX ERROR message in the 
Tables subprogram, and that message is sent to screen, and 
possibly printer, via the PRNTMESS subroutine (440). A car- 
riage return is printed (450), and we return to the Eval sub- 
program after pulling all the characters of the current source 
code line. The subroutine PULLINE does this (460). 

Assuming, however, that LADS came upon the legitimate 
pseudo-op .FILE during an assembly, lines 480-830 take the 
necessary action. .FILE appears at the end of a subprogram. It 
tells LADS that another subprogram is linked to the one just 
assembled and that the source code within this next sub- 
program is to be assembled next, as an extension of the cur- 
rent subnrogram. The current source code file will need to be 
shut down, and the next linked file will need to be opened for 
business. The next linked file is the one called NAME, for 
example, in .FILE NAME. 


Linking with .FILE 

The FILE subroutine starts off by looking for a blank character 
following the .FILE pseudo-op word (480-510). Locating a 
blank, it can now store the name of the next file of source 
code. It pulls in the name, one character at a time, looking for 
an end-of-line 0 (540) or a byte with the seventh bit set (a 
tokenized keyword which needs to be stretched out into a full 
ASCII word). Then each character in NAME is stored in the 
main buffer (590) as it comes in from the source code. 
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When an end-of-line 0 is encountered, the whole filename 
has been stored in LABEL, the input buffer. And—since Y was 
counting the number of characters and helping store them in 
the right place in the buffer—Y now holds the number of 
characters in the filename, its length. We store Y in the 
FNAMELEN variable which will be needed by the DOS (Disk 
Operating System) when the OPEN1 subroutine tries to open 
or load a program file on the disk. 

Now the filename is moved from the LABEL buffer to the 
FILEN buffer (630-680). Why not just store the name in the 
FILEN buffer in the first place? First, because the printout 
routines get their characters and words from LABEL, the main 
buffer. Second, because there might be a keyword, a 
tokenized, abbreviated BASIC command within a filename. 
The filename might be END or IFNOT. And KEYWORD, our 
detokenization subroutine, acts upon words in LABEL, the 
main buffer. So, rather than make a separate KEYWORD 
detokenization subroutine for each buffer, it’s easier to bring 
words into the main buffer first, detokenizing them on the fly. 
Then move them. 

But why, then, not have the OPEN1 subroutine look to 
the main buffer for its filenames? That way, the names 
wouldn't need to be moved to FILEN, a separate buffer. True 
enough, but it helps me and, I suspect, many other pro- 
grammers to keep things separated by function. 

It takes only 14 bytes in LADS to move the filename from 
the main buffer to the filename buffer. It adds only a few 
microseconds during assembly time since .FILE is a relatively 
rare event. It won’t happen more than a few times during an 
entire assembly, It’s nowhere near the heavy action of the 
innermost loops of LADS where every event counts, where 
every improvement in logic results in a noticeable improve- 
ment in speed. So memory use or speed efficiency is not really 
worth bothering with here. If it’s easier for you to visualize the 
actions of a program (and make sure there are no unwanted 
interactions), use as many buffers and variables as you want. 


Printing Addresses 

The next section of this FILE subroutine prints out to screen or 
printer (690-740). Pass 2 doesn’t print the starting address of 
each linked file. That’s one way to tell which pass is currently 
being assembled. Change the LDA PASS in line 690 to LDA 
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#0 if you want the address printed on both passes. The 
PRNTSA subroutine (from Printops) prints the address in 
RAM memory where the first byte in the new file will be 
assembled. PRNTINPUT prints the filename from the main 
buffer. Then a carriage return prepares for the next screen (or 
printer) line (740). The whole thing looks like this on the 
screen: 


470A NAME 
49FF NEXTNAME 


If the .S and .P pseudo-ops are turned off, nothing will be 
printed to the screen during an assembly except for this list of 
linked files and their object code addresses. That's the fastest 
way to assemble any source code. Printing during assembly 
takes up a considerable amount of time. 

The OPEN! closes the old source code file and opens the 
new one. OPEN1 is found in the subprogram of the same 
name. Next, the computer's input channel is switched to file 
#1, the input-from-disk channel, and two bytes are pulled off 
the newly opened source code program file. (These first two 
bytes are, in the Commodore DOS system, ignorable.) Then 
ENDPRO gets us in position to analyze the first line in this 
new source code file (800). Finally, the ENDFLAG is set down 
because there’s obviously more code to assemble. We return to 
line 80 where the RTS (back to the Indisk subprogram) is 
pulled off the stack, and we JMP directly back into the Eval 
subprogram to pull in the first source code line of the newly 
opened file. 


The .END Link 
The .END pseudo-op is quite like the .FILE pseudo-op. It serves 
to link the last file in a chain to the first file: 


PROGI (ends with .FILE PROG2) 

PROG2 (ends with .FILE PROG3) 

PROG3 ies with .END PROGI1, pointing back to the original 
ue 

This way, the assembler can go through two passes. 

.END starts off by printing the word .END (850-940). Then 
it borrows a good section of the FILE subroutine above the 
JSRing to line 520. Most of the events in FILE now take place: 
The name of the new program file is stored in the two buffers, 
the file is opened, ENDPRO puts us in the right spot to look for 
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a new line, and so on. When we return to the END subroutine 
(970), .END’s most important work is now performed: On pass 
1, the ENDFLAG is left down (980). But on pass 2, the 
ENDFLAG is sent up, and that will quickly cause the Eval sub- 
program to shut the entire LADS engine down. 

But if this is pass 1, another very important thing happens: 
Pass 1 is changed into pass 2. The PASS flag itself is set up 
(1000). 

The original starting address is now retrieved from the TA 
variable and restored into SA, the main Program Counter vari- 
able. This starts us off on the second pass with the correct, orig- 
inal starting address for assembling the object code. The JSR to 
INDISK gets us pointed to the first true line of source code in 
that first program file (past the *= symbol), and we RTS back 
up to line 140 which exits us from this subprogram the same 
way that the .FILE pseudo-op exits. 


Assembly to Disk Object File | 
The .DISK pseudo-op is an important one: It makes it possible 
to store the object code, the results of an assembly, as a pro- 
gram on disk. In a way, it’s the opposite of .FILE. .FILE pulls in 
source code from a program file already on the disk; .DISK 
sends out object code to a new program file being actively cre- 
ated during the assembly process. 

On pass 1, nothing is stored to a disk object file, so we 
branch to PULL] which is a springboard to PULLINE. 
PULLINE pulls in the rest of a logical line and prepares us to 
look at the next logical line. - 

On pass 2, however, all object code is stored to a disk ob- 
ject file if the .D NAME pseudo-op has been invoked. This 
storage happens character by character, just the way that object 
code is sent to the screen or printer. But before these bytes can 
go into a disk object code file, the file must be opened for writ- 
ing on disk. 

One character is pulled off the source code, moving us past 
the space character in .D NAME and pointing to the N in 
NAME. A little loop (1130-1210) stores the NAME of the object 
file into the main buffer (for printouts) and into the filename 
buffer, FILEN, simultaneously. Meanwhile, if any tokenized 
keywords are detected (seventh bit set), we're directed to trans- 
late them to ASCII characters via a JSR KEYWORD (1170). This 
accomplished, we add “’,P,W” onto the end of the filename. 
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That's Commodore-specific; it tells the DOS that this file is to 
be a Program /Write file. 

At this point, Y holds the length of the filename, and it’s 
then stored in the proper zero page location (1350) for use by 
the DOS in opening this write file. Now the main input line, 
the filename, is printed out, and the DISKFLAG is set up 
(1380). That tells LADS to always send object code bytes to this 
object file on pass 2 when it has finished assembling each logi- 
cal line. 


An Abnormal Program 

The routine OPEN2 in the Open1 subprogram will now open 
the write file on disk (1390), and the channel to that file is made 
the main output channel at this point (1400-1410). Whatever is 
PRINTed will now go to the disk write file. And the first two 
bytes of a program file tell the computer where in RAM mem- 
ory to load a program file. Normally, for a BASIC program, this 
load address would be the start of RAM, the start of BASIC’s 
storage area for programs. But this is an abnormal program. It’s 
machine language; it could go anywhere in RAM. We therefore 
need to tell the computer what the starting address of this 
particular program is. 

At the very beginning of LADS, the start address is pulled 
from just beyond the source code’s *= symbol. That symbol 
must be the first item in any source code. The start address is 
then put into several variables. SA, the Program Counter, gets 
it, but will keep raising it as each logical line is assembled. SA 
is a dynamic, changing variable. TA also gets the start address. 
TA is a ‘’variable,’’ but never changes. Its job is to remember 
the starting address all through the assembly process. Perhaps 
TA should be called a constant rather than a variable, but the 
term variable is generally used in computing to refer to both 
types of “remember this’’ storage places. 


TA Remembers 

In any event, TA will always know where we started assem- 
bling. So TA is sent to the disk object file as the first two bytes 
(1420-1450) and then normal I/O (input from disk source file, 
output to screen) is restored (1460-1470). Now a disk error is 
checked for, and we prepare to look at the next logical line via 
JSR ENDPRO (1500). The RTS is pulled off the stack (it would 
want to send us back to INDISK), we set the ENDFLAG down 
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and JMP back to Eval to analyze the next line of source code 
(1550). 

The PRINTER subroutine responds to a .P pseudo-op. It is 
ignored on pass 1, but on pass 2 the file to the printer is 
opened (1590), and the PRINTFLAG is raised. Normal I/O is 
restored, and we “fall through” to PULLINE, the subroutine 
which keeps sucking bytes off the current logical line until the 
end of that line is reached. These bytes are ignored. That’s why 
pseudo-ops should be the only thing on any physical line. Any- 
thing following a pseudo-op is sucked in and ignored. 

The PULLINE routine finishes when a colon or a 0 is de- 
tected. The exit back to STARTLINE in Eval is prepared for by 
the PLA PLA which throws away the RTS (caused by JSRing to 
Pseudo from within Indisk). The only difference between a 0 
(end-of-physical-line) and a colon (end-of-logical-line) condition 
is that a 0 requires that we skip over some link bytes in the 
source code. 0 requires that we first clean off these link bytes 
by a JSR to ENDPRO (1700). ENDPRO is also necessary in the 
event that the end of a physical line is also the end of the 
source code file itself. ENDPRO would detect that. 

The .O pseudo-op notifies LADS that you want object code 
stored into RAM memory during assembly beginning at the 
start address “=. This is relatively simple: We just print out the 
.O (1770-1800) and set up the POKEFLAG. (Elsewhere in 
LADS, the POKEFLAG is queried to determine if object code 
should be sent to RAM.) Then we exit via PULLINE. 


Turning Things Off 

The .N pseudo-op turns things off. It can turn four things off: 
printer printout, RAM object code storage, screen printout, and 
hexadecimal printout. If .N is detected in the ON-GOTO sec- 
tion of Pseudo above (110-320), we are sent here for another 
ON-GOTO series of tests (1880-1960). Of course, none of these 
forms of output are triggered on pass 1, so they don’t need to 
be turned off on pass 1 either. But on pass 2, we are sent to 
one of the four turn-it-off routines below. 
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NIXPRINT (1980) first notifies us that the .NP pseudo-op 
has been detected in the source code by printing the .NP. Then 
the PRINTFLAG is lowered (2050), and a carriage return is sent 
to the printer. This is in case you should want the printer 
turned on again further along in the source code. (You would 
turn it on with the .P pseudo-op.) The first line of a reactivated 
printout must appear on a new line, not as an extension of the 
previous printout. 

Then the printer is turned off with JSR CLOSE (this close- 
down-a-file routine is in the Open1 subprogram), and we exit 
via PULLINE (2160). 

The next three turn-it-off pseudo-ops are simple, and virtu- 
ally identical. NIXOP prints .NO and sets down the 
POKEFLAG. NIXHEX prints .NH and sets down the HXFLAG 
(causing decimal to become the number base for opcode print- 
outs to printer and screen). NIXSCREEN prints .NS and sets 
down the SFLAG. Each routine exits via PULLINE described 
above. 


Disk Error Trapping 

DISERR (2510) checks for an error in disk operation. It could be 
JSRed to from any place in LADS where you suspect that 
things aren’t likely to go well with the disk. Disk drives differ 
considerably in their reliability: An unabused Commodore 4040 
drive is usually good for years of error-free performance; many 
of the Commodore 1541 single-drive units, especially the earlier 
ones, are perhaps best described as sensitive. In any case, how 
often you feel the need to JSR DISERR for a report on the 
disk’s success in completing an operation will depend on how 
often your drive is the cause of problems during your other 
programming experience. 

For Commodore computers, a simple check of the ST (sta- 
tus) byte in zero page will reveal many kinds of disk errors. If 
one is detected, an error message is printed and LADS is shut 
down (2650) by jumping to FIN within Eval. 
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The .S (screen printout on) and .H (hexadecimal number 
printout) pseudo-ops are the final items to assemble as part of 
the LADS source code program. The subprogram Table follows, 
but it’s data, not programming. 

There’s no particular reason why these two pseudo-ops 
should be the last thing in LADS. They just are. 

Also, they’re very simple. They each print their names to 
announce themselves, .S or .H; set up their flags, SFLAG or 
HXFLAG; and exit through PULLINE. The only notable thing 
about .S is that it must not set its flag until pass 2. 

The .H is a default condition of this assembler. LADS as- 
sumes that you want hex output unless you use the .NH to 
turn off hex and turn decimal on. Of course, you can set up 
other default conditions which are more harmonic with your 
own programming needs. 
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Pseudo: I/O and Linked Files 


OW1d WWU-OL-dNOd SSIVA *OWTMaAOd WLS 

T# WaT 

NYNLAY AOVINUWO *YOLNAd usc 

LNIYd use 

nOun *6L# WAT 

LNIYd ase 

O° LNIYd *97# VAT NOdO 

dO-OdndsSd (WWY OL SALAd Di0d) O° WIANWH wre r rer rrr rrr reer rrr re nn ‘ 
(aqd00 g30unoS dO ANIT LXEN LAD OL) TwAd OL Nandy ‘ANITLUWLS dwe 
NMOG DWIAGNE LaS ‘OWIAGNA XLS 

@# Xd'l 

Wid 

MOWLS diO SLY TINd *WId wINddNda 

OUuddNa user TINdGNa 

(SHYSALOVUVHD AYOW NI I1Nd OS) ONAZ YON NOTOD ddaHLIAN *HNITINd dwe 
(NOTOD) ‘aIndadNna oad 

daLS LVHL SdIMS ANIT dO GNA NOTIOO W SVAYAHM ‘8S# dWO 

# ANIT LXAN YOd OUMAGNA OL OD GINOHS SANIT JO GNA OWNZ ‘TINdGNa Odd 
SNIT LXAN ALYOOT “snc “‘SSLAG TIY AYONDI ‘*NIUYWHO USC ANITINd 


ANII W JO LSaY JO GIW LHD “SNILNOW NOILONS ---------------------- : 
NIMHD usr 

O/I ‘IWWHON auOLSaa ¢T# XAT 

“(NHSUOS AHL SW TIM SW YALNIYd FHL ‘NHOWIO use 


OL SALAM GNHS TIIM INIYd OS) OWIA LNdLNO YALNIYd ASIWVA ‘OWIALNIYd ONI 
UALNdWOD WOUA UVEH OL UALNIYd NadO OS ‘Z SSVWd ‘PNadO ASC 

“NO OD GNW SNIT JO LSaY JO CIa LED *aNITINd Odd 

LNdLNO USLNIYd ON Od ‘T SSWd NO ‘¢SSVd WOT YaLNTddd 

coor dO-odanasd (YaLNIYd) d°* ATONVH wn nnn! 
ANIT LXSN LAD OL TWAT OL NUOLAY ANY ‘ANITLYVLS dwe 

OVId WWUSOUd JO GNX Lasda -OWIAGNa XLS 

6# XAT 


OEBT 
OcBT 
OTsT 
O98T 
B6LT 
O8LT 
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OSLT 
OVLT 
BELT 
BCLT 
OTLT 
BOLT 
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OB9T 
BLOT 
Q99T 
OS9T 
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O/I TWNHUON SYOLSaa ‘1# XdT 

NHOWTO use 

aso1o usc 

v# WAT 

LINI¥d use 

€l# Wal 

LNOMHD use 

vt XAT 

UPLNIYd AAO NYOL ‘NHOUWIO use 

OW1d NAAUOS-OL-LNIYd YAMOT /OWTGLNIUd Od 

NUNLEY AOWIMAVO *AOLNYd Use 

INI¥d use 

udy *@8# WAT 

INIdd usc 

oN, *8L# WOT 

INIYd use 

NaauoS OL ,dN*, LNIYd *97# WOT LNIYdXIN 

LAdLNO UALNIYd JMO NYNL —-------------------------- H 

XHHXIN OSE 

(IWNIDAd OL HOLIMS SNHL) ,XS3H LNOLNIYd LON, OL ,HN*, LI SI *Z2L# dWo 
NGUSYOSXIN Odd 

»N3auOS OL LNIYd LON, OL ,SN*, LI SI *€s# dWo 

dOXIN Oad 

wNWd OL SHLAA LOUCAO ANOd LON, OL ,ON*, LI SI ‘62# dwWo 
LNIYdXIN O94 

wad LNINd OL LNIYd LON, OL ,dN*, LI SI ‘98# dWo 

JiO GHNUNL ONIAd SI ONIHL HOIHM 4aS ‘Z SSVWd NO ‘NIUWHOD usr 
AaNITINd O94 

SIHL dO ANW HLIM YHHLOG L,NOd ‘TI SSVd NO ‘SSWd Wd XIN 
SdO-OdNgaSd JdO-LI-NaNL’ (ONIHLENOS)N* BICNWH ----e cere teen rere e ‘ 


ANIT JO LSHa AHYONDI ‘aANITINd 
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OTT? 
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B66T 
B86T 
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B96T 
OS6T 
OvET 
BE6T 
O76T 
OT6T 
OB6T 
H68T 
O88T 
OL8T 
B98T 
OS8T 
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na -€8# 


uN -SL# 


wSN*, LNIGd !9p7# WaT NaaYOSXIN 
SLNOLNIYd NHXAYDS dOLS -------------------------- : 


(TWAS OL NYNLAY GNW) ANIT JO LSAM AMONDI “‘ANITINd 
NMOG OWIAIXHH LNd *‘OWTIXH 

OF 

NYNLaaA AOVIYAWO *aD.LNad 

LNIdd 

wHa ‘7L# 

LNIUd 
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LNTUd 


(IWAd OL NYNLAY GNW) ANIT JO LSAaY AHONDI ‘ANITINd 
OWI @HOd JdO NYAL -OvTddMod 

Ot 

NYOLaY ASVIANWO ‘ dO.LNdd 

LNINd 

nOu 26L# 

LNTYd 

oN *8L# 

LNTaYd 


(TWAT OL NUQLGY AGNW) ANIT JO LSA AMONSI *ANITINd 
NIMHO 


Pseudo: I/O and Linked Files 


usr 


wHN*, LNIYd !99# WOT XHHXIN 
(TWWIDSC LYVLS) SLNOLNIYd X3H dOLS ------------------------ : 


usr 


»ON*, LNIYd *97# WaT dOXIN 
WW OL SELAH LOACHO ONISNOd dOLS --------------------~--- 


dwe 
usr 


OSPT 
BvVvTS 
BEV 
BCve 
OT 
BBV 
Q6ET 
BBET 
BLES 
B9ET 
OSET 
BET 
BEEZ 
O7ETS 
OTE? 
DOET 
O6C7 
B8B~~e 
BLE? 
B97 
OSC 
OVE 
BETTS 
O2CT?S 
OTe? 
BBC 
BET? 
B8TZ 
BOLTS 
99TZ 
OST?% 
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Pseudo: I/O and Linked Files 


(TWAT OL NYOLIA GNW) ANIT dO LSAa SHYONDI *ANITIOd dWe xaos 
OW1IS WLS 

OWId (ONILSIT) LOOLNIYd NESUDS ASIWA ‘ASIMYAHLO -1# WaT 
xXaa0S Oa 

LOOLNIYd NASHYOS ON ‘T SSWd NO ‘SSWd WaT 

NUNLI ADVINUAWO -AOLNSd use 

LINIYd usr 

ou ‘€8# WaT 

LNIYd use 

oS°, GLNIYd *9p$¢ WOT NISXOS 

(LOOLNIYd NAAYDS NO NUNL) dO-OdnNaSd $* AIGNWH --------------- : 
NOLLWaSdO SGWI AGYILNa NMOG LAHS ¢‘NIA awe 

Wd 

MOWLS JdO SLY Tind ?-Wid 

AOWSSAW YONNA LNIYd *SSAWLNYd use 

TIS ONTY !ONTUUR use 

T+dWaL Wis 

UASIGW<# WAT 

ASDVSSEW YOUUT ASIC OL LNIOd ‘dWaL WLS 

aaSICW># WaT 

FOWdSLNUd use 

WONLNYd use 

AOVSSAW YOUUNT LNO LNIYd {Q# WaT AAIGOW 

---------- {sa 

O/I MSId GHL NI LINWA AWOS SI AYAHL ’OURZ LON AI ‘YaIGOW ANA 
(OIMIOddS UALNdWOD) ATIAVIYWVA SNLWLS WMSIG WOH 4LS xadT wussia 


scotaetanataies ANILNOY NOILOMLAC YONNA MSIQ = --------------------------! 


(IWAT OL NYOLEY ANY) ANIT JO LSAY AMONSI ‘ANITINd dWe 
OVWId LOOLNIYd NAAXDS NMOC LNd ‘OWTAS WLS 

O# WaT 

NUNLA AOVIAAWO*AOLNAd usc 


GILT 
OSLZ 
BVLTE 
BELTS 
OCLE 
OITLZ 
OBLT 
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BB9T~ 
OL9IE 
G99 
B59 
OBV9IT~ 
BE9C 
OZ9Z 
OT9Z 
OB9Z2 
B6SZ 
BBSze 
BLS 
B9GC 
BSSe 
OSC 
BEST 
OSC 
@TSZ 
BDSZ 
B67 
O82 
OLVT 
B9bZ 
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Pseudo: 1/O and Linked Files 


T+aLdNa'T 

a1TIad AUYWNIG *LNIYd 

dO HLONGT ALIYM ‘YLdNagT 

Na THWYNA ALS 

T+aLdNna'T 

T+UL 

dO-OdndSd *1+wWs 

a* Ad GaLVAND +YLdNaT 

ATIad AYWNIG dO SALA -VL 

HLUNOA ANY GYIHL wod -vs 
4TId dO HLONAT FAVS 


YaT 
usr 
WaT 
Tdd 
WLS 
ods 
WaT 
WLS 
ods 
Wal 
‘ogs 


Lsvrt 
9SVT 
SSvT 
OSET 
BRT 
LOBT 
9BOT 
SOBT 
PEOT 
€GBT 
TORT 


saodq dO-odndSd @IIda* SW LSA “DLE “AWWNA IIA LAD *-ATId Use B96 
GNH°* LI SI *69# dWO TdSd OTT 


saul] SULMOTIOJ 
ay} asgueyds pue [-g weisgolg WO 0QS9Z—-00SZ seul, pue 


OPEI-OETI Saul] ywo ‘opnasg jo uorsiaa ajddy ay} aya OF, 
suoyeoyIpoyy addy ‘opnasg °7-g weido1g 


SaTadvL Wild’ 


(TWAT OL NYOLAY GNV) ANIT JO LSHY AAONDI ‘*‘ANITINd 
dN OWIdXdH LES ‘OwWIdXH 

T# 

NYNLaa AOVIAAWO <+aoO.LNad 

LNIYd 

wuHa s7LE 

LNTY d 


dWr 
WLS 
WaT 
usc 
usr 
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usr 


uH*, LNIdd ‘97# VOT LIXdH 
(LOOLNIYUd ONTIUNG SUPANNN XH) dO-OdNeSd H° AIANWH ----<---------- ! 


098¢ 
BS8C 
OV8z 
BEBTS 
O28 
OT8C 
OBS 
BELZ 
O8L7Z 
OLLZ2 
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Pseudo: I/O and Linked Files 


3HS‘UENHSHtd Alda’ #East 
SLs £07 YRASIA wtsG!Y 
P4007 1S peay 

+05 YaT £a45T 

BSI VLG ZT 

JS JOT Teawt 

jis Sf 696 

- we 

a 

» g6B2Z 

QO71aA 3NA Bg 

NS TGWOMNS AdD osc 

2: g8S 

454 AWD [asd BIT 
CAISS4--SNOLLVSISi: COW Luviv: gt 


saul] SULMOTIO} 
ay} asueyo pure [-g weig01g WOY QCPI-OOFL seul, pue 
OFEI-OEZL SOUT] WO ‘Opnasy Jo UOISIGA LIEV dU} a}¥aD OF 


suOpespIpoY Uery ‘opnasy “¢-g weiso1g 


* Z67T 
LNIYd usc scr 
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Tables: 


Data, Messages, Variables 


Computers are information processors. Data is another word 
for information. This points up the difference between the two 
distinct sections of any computer program: code and data. The 
code, or program proper, is a list of actions for the computer 
to take. The data is the information upon which those actions 
are based. 

Data is usually separated from the code; it might even be 
outside the computer. Sometimes data is on a disk file, some- 
times on tape, sometimes in the user’s brain, as when a pro- 
gram halts and asks for input from a keyboard. In all of these 
cases, though, the code is segregated from the data which it 
processes. 


An Odd Duck 

LADS processes source code, turning it into runnable object 
code. It takes a list of actions like LDA #75:STA SCREEN and 
turns them into computer-understandable machine language 
object programs. 

LADS gets its data from two sources, a disk source code 
file (or source code in RAM) and also from the Tables sub- 
program. Tables isn’t really a subprogram, of course. We’re 
forced to call it that because there isn’t a better word. It’s 
really an odd duck. There are no commands to the computer 
within Tables. It’s pure information. Essential information, 
true, but there are no ML instructions in Tables. Just defi- 
nitions, messages, pointers, buffers, flags, and registers. LADS 
couldn’t operate without them, but they’re not active program- 
ming instructions—they’re for reference. 


Three Parallel Tables 

Tables starts out, appropriately enough, with three parallel ta- 
bles: MNEMONICS, TYPES, and OPS. Each table contains 56 
pieces of information. MNEMONICS holds the names of all 
the 6502 mnemonics like LDA and INY. TYPES identifies the 
category of each mnemonic (we'll get to this in a minute), And 
OPS provides an opcode for each category. To see how these 
three tables work together, let’s look at the first item in the 
first table, the mnemonic LDA. 
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In your machine language programming, you might want 
to load the Accumulator with the number 1. You would write: 


100 LDA #1 


The computer wouldn't grasp the meaning of the ASCII 
characters L-D-A-#-1 at all. They’re for our convenience, not 
its. 

We think alphabetically or alphanumerically. It thinks 
binarily. It wants pure numbers. The CPU, the “thinking” part 
of the 6502 chip, takes action according to a code of its own, 
but this code isn’t the ASCII code. It’s an opcode, an opera- 
tions code. The CPU will place a number into the Accu- 
mulator, the A Register, if it comes across any of the following 
numbers: 161, 165, 169, 173, 177, 181, 185, or 189. Each of 
these numbers is an opcode for LDA. But each one loads from 
a different place. The different numbers represent the opcodes 
for the eight different addressing modes available to LDA. They 
are: 


Addressing 

Mode’s Name Example §Opcode 
Immediate LDA #15 = 169 
Zero Page LDA 15 165 
Zero Page,X LDA 15,X 181 


Zero Page,X (indirect) LDA (15,X) 161 
Zero Page,Y (indirect) LDA (15),Y 177 


Absolute LDA 1500 173 
Absolute, Y LDA 1500,Y 185 
Absolute,X LDA 1500,X 189 


Most of the mnemonics can use a variety of addressing 
modes. LDA can be addressed these eight ways, LDY can be 
addressed five ways, and so on. That’s where TYPES comes 
in. There are ten TYPES, and each opcode falls into one of the 
ten categories. Mnemonics are grouped according to their 
addressing mode’s similarities. The mnemonics cluster into 
TYPES according to the way that they can be addressed: 
Type 0: 

RTS, INY, DEY, DEX, INX, SEC, 
CLC, TAX, TAY, TXA, TYA, PHA, 
PLA, BRK, CLD, CLI, PHP, PLP, 

RTI, SED, SEI, TSX, TXS, CLV 

NOP 
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(Each of these mnemonics takes up only one byte in memory; 
each is only capable of Implied addressing—they have no 
argument, no address.) 

Type 1: 

LDA, CMP, STA, SBC, ADC, AND, 

ORA, EOR 


(Type 1 mnemonics have the largest number of possible 
addressing modes, eight. See the list for LDA above.) 

Type 2: 

STY, STX, DEC, INC 

(These are fairly restricted in their addressing options. STY has 
only three possibilities: Absolute, Zero Page, and Zero Page,X. 
STX can perform only Absolute, Zero Page, and Zero Page, Y 
[it’s the only one which can use this Zero Y mode]. DEC and 
INC can do Absolute; Zero Page; Zero Page,X; and 
Absolute,X.) 

Type 3: 

ROL, ROR, LSR, ASL 

(These are the bit-shifting, “logical’’ instructions. They can be 
addressed in the following modes: Absolute; Zero Page; Zero 
Page,X; Absolute,X; and one which is reserved for them alone, 
Accumulator mode. In that mode, the number held in the 
Accumulator is acted upon.) 

Type 4: 

CPY, CPX 

(The compare X or Y can use Immediate, Absolute, or Zero 
Page modes.) 

Type 5: 

LDY, LDX 

(These loads are more restricted in their addressing possibil- 
ities than LDA. LDX can use Immediate; Absolute; Zero Page; 
Absolute, Y; and Zero Page, Y. LDY can use Immediate; Ab- 
solute; Zero Page; Zero Page,X; and Absolute,X. Notice that 
they cannot index themselves; ,X modes are possible only with 
LDY and vice versa.) 

Type 6: 

JMP 

(This is a special case; it stands alone. It has two ways of 
addressing: the extremely common Absolute mode and the ex- 
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tremely rare Indirect mode, JMP (via this). Because most 
programming contains many JMPs, it should have its own 
category. Also, the only other mnemonic which is essentially 
limited to Absolute addressing is JSR, and it gets a category all 
to itself as well.) 

Type 7: 

BIT 

(This one is also an oddity. It too needs a category all its own. 
BIT can use only Absolute or Zero Page addressing.) 

Type 8: 

BCS, BEQ, BCC, BNE, BMI, BPL, 

BVC, BVS 

(All the branch instructions collect together as type 8. They 
have only one addressing mode, Relative, and they are the 
only instructions which can use this mode.) 

Type 9: 

JSR 

(It can only Absolute address.) 

Each of these groups derives from the arrangement of the 
opcodes. The patterns are more easily visualized if you look at 
the opcodes laid out in a table according to their numeric 
values. 
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Notice the relationship between LDA (15,X) and LDA 
#15. The former has an opcode of 161; the latter, 169. As the 
Eval subprogram goes through the source code line, it is look- 
ing for clues to the addressing mode: Is there a #, a comma, a 
parenthesis, an X, or a Y? 

Each of these things, combined with the TYPE, tells Eval 
when to raise the value of the original opcode (let’s call it the 
base opcode) assigned to the mnemonic from the OPS table. If 
Eval finds a # symbol, it adds 8 to the base opcode and goes 
right to the TWOS exit. It knows then that this opcode should 
be 169 (161 + 8) and that there will be two bytes to assemble: 
Immediate mode addressing uses two bytes. (All the other 
mnemonics grouped with LDA as type 1 will also add 8 to 
their base opcodes to signify their Immediate addressing 
modes.) 

The base opcodes are in that third table called OPS (190). 
The Eval subprogram looks up each mnemonic in the 
MNEMONICS table, and then the numbers extracted from the 
TYPES and OPS tables are stored in the variables TYPE and 
OP for future reference. Finally, Eval starts looking for those # 
and ) clues within the source code line. These clues cause Eval 
to add 4 or 8 or 16 or sometimes even 24 to the base opcode. 
This adjusts the base opcode upward so it will eventually be- 
come the correct opcode for the addressing mode being used. 

CMP is grouped with LDA as a type 1 mnemonic. That's 
because a # will add 8 to either of their base opcodes and result 
in the correct, final opcode for Immediate addressing. The base 
opcode for CMP is 193, which, unadjusted, would stand for 
CMP (15,X). If we come upon a # following the CMP, how- 
ever, 8 is added to the 193, giving 201, the correct opcode for 
CMP #15. Then Eval would JMP to TWOS and conclude 
assembly of that line of source code. 

In each case, the base opcode in the OPS table is the low- 
est possible opcode number from among the addressing mode 
options available to each mnemonic. As the evaluation process 
proceeds throughout the Eval subprogram, the discovery of the 
various addressing modes triggers additions to the base opcode. 
In the end, when Eval finally releases a source code line, the 
right opcode has been achieved. 

Returning to the data within the Tables subprogram, we 
next come upon the little HEXA table (270). It lists all the digits 
found in hexadecimal numbers. It’s used as a lookup table 
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when LADS translates an internal two-byte integer into a print- 
able, readable ASCII hexadecimal number like F-F-D-2. 


The Six Bufferettes 

Here are the buffers (290-340). They are constantly being filled 
with a source code line, evaluated, and then cleaned off by be- 
ing filled with zeros. They are separated into six different 
bufferettes primarily for the programmer’s benefit. It’s easier to 
visualize different actions if the buffers have different names. 

LABEL is the main buffer—every source code line comes 
into it. BUFFER is where arguments are sent for further study. 
The rest of them are used for special-purpose analysis. Things 
like hex numbers are moved up to HEXBUF, for example, so 
they will be isolated from other characters and can be 
translated. 

One other buffer, distant from the rest, is needed. LADS 
stores comments (remarks following semicolons in the source 
code) into a buffer normally used by BASIC to hold program 
lines. The location of this buffer depends on each computer's 
memory organization and so it is defined in the Defs 
subprogram. 

The computer’s Accumulator and Y and X are called reg- 
isters. They’re like hypervariables inside the 6502 chip—they 
are constantly changing. Calling them registers serves to distin- 
guish them from program-created variables or other special 
locations within the computer. The three variables RADD, 
VREND, and TSTORE are called registers in LADS. That’s 
largely the result of whimsy. There are as yet no established 
conventions concerning how to describe storage areas in ML 
programming. In this book we’re variously referring to these 
set-aside bytes as flags, variables, registers, pointers, vectors, 
etc. (See Chapter 1). 

In reality, they’re all pretty much the same thing: Just some 
RAM memory space we've allocated with the BYTE pseudo-op 
(or identified in zero page by definition using the = pseudo-op 
like STATUS = $FD). But it’s nice to use various terms. It 
helps to remember things and, sometimes, it even helps to de- 
scribe the purpose or function of a particular variable. Pointers, 
for example, are always associated with the Indirect Y address- 
ing mode—LDA (POINTER),Y. They point to some address in 
RAM. 
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Registers Used by Valdec 

Anyway, these three variables are described (350) as registers. 
RADD holds numbers being added to other numbers. VREND 
holds the length of the ASCII version of a number while it’s 
being turned into an integer. TSTORE holds the interim results 
of multiplication. All three “‘registers’’ are used by the Valdec 
subprogram. 

Lines 400-460 contain the various error messages. Note 
that each one ends with .BYTE 0 to stick a delimiting 0 in after 
the message itself. This 0 tells PRNTMESS (the subroutine in 
the Printops subprogram which prints messages) where to stop. 

The rest of Tables contains variables, pointers, and reg- 
isters. Notice that there are no zero page variables here. Zero 
page variables, pointers especially, are most useful for Indirect 
Y addressing, but you won’t need too many of them. In fact, 
you won't be allowed to use much of zero page because it is so 
popular with your computer's operating systems and languages. 
But the most important thing to remember about any zero page 
space that you do use is: Zero page variables must be defined at 
the start of your assembler source code. They are unique in this. 
Any other equates can be defined anywhere in the source code. 
And, of course, the address-type PC variables or labels can be 
defined anywhere. 

OP and TYPE are variables which hold information about 
the mnemonic currently under investigation during assembly. 
After a mnemonic is located in the MNEMONIC table, the 
matching TYPE and base opcode are pulled out of their tables 
and stored into the variables OP and TP for later reference 
(480-490). TA is the permanent storage area for the start ad- 
dress of assembly, the original *=. 


Source Code Line Numbers 

LINEN holds the source code line number of whatever physical 
line is currently being assembled. ENDFLAG tells Eval when to 
shut down assembly. It is incremented by the END pseudo-op. 
WORK is used by several routines within LADS as a conve- 
nient place to temporarily leave two-byte values. 

RESULT is an important variable. It holds the argument of 
each opcode. When an argument (expression-type) label like 
STA HERE is encountered, the label HERE is looked up by the 
subprogram Array and the integer value of the word HERE is 
placed into RESULT. When a hex argument like STA $1500 
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comes in from the source code, the subprogram Indisk trans- 
lates the characters $1500 into an integer value and stores that 
value in RESULT. Likewise, a decimal argument like STA 5376 
is sent to RESULT after it’s evaluated in the Eval subprogram. 
For every addressing mode which has an argument, the argu- 
ment is stored in RESULT after it’s been evaluated. 

ARGSIZE holds the length of each argument, how many 
characters long it is. For example, ARGSIZE would hold a 7 for 
the argument in LDA (155),Y since (155),Y is seven characters 
long. It is used in the Eval subprogram in lines 1670, 2250, 
2750, and 3020. 

EXPRESSF is a flag which shows whether or not there is a 
label being used as an argument. LDA 15 would leave 
EXPRESSF down. LDA NAME would set it up. It is used in the 
Eval subprogram at lines 740, 1470, 1510, 1590, and 1700. 

HEXFLAG tells the Eval subprogram whether or not it 
must calculate a decimal argument. Hex arguments are cal- 
culated (and left in RESULT) by the Indisk subprogram. Deci- 
mal arguments, however, need to be worked out by Eval. 
HEXFLAG is used in lines 550 and 1680 in Eval. 

HEXLEN holds the length of a hex number. It is used in 
Indisk in lines 2170, 2240, and 2490. 

KEYNUM holds the position of a keyword (a BASIC com- 
mand) in the table of keywords in ROM BASIC. It is used in 
Indisk in 1060, 1080, 4260, and 4280. 

LABSIZE is used in the Equate subprogram to hold the 
number of characters in an equate-type label (such as NAME = 
22). It is used in lines 120, 160, and 410. 

LABPTR is also used by Equate. It points to the position in 
the label array where the integer value of a label should be 
stored. It is found in lines 600 and 750. 

ARRAYTOP points to the highest byte in the label array. It 
is where we start any search through the labels. Identical to TA, 
ARRAYTOP also represents the start of the LADS assembler in 
memory, minus one. It is used in Equate in lines 110 and 150 
and in Array in lines 30 and 50. 


A List of Flags and Variables 

BUFLAG goes up when a line of source code contains # or (. 
These symbols are important when determining addressing 
mode, but must be ignored in evaluating arguments (the nu- 
meric value of the expression). This flag is used in lines 470 
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and 1020 in Array and in lines 750 and 1400 in Eval. 

PASS is used frequently throughout the entire LADS pro- 
gram—it shows which pass we're currently on during assem- 
bly. A 0 in PASS signifies pass 1; a 1 represents pass 2. 

The three variables A, X, and Y are often called upon to 
temporarily hold the values in the 6502 registers after which 
they were named. They are temporary storage areas. 

PT is a temporary storage area to hold the PARRAY dy- 
namic pointer in the Array subprogram. 

BNUMELAG and BFLAG are used in the evaluation of the 
.BYTE pseudo-op in the Indisk subprogram. 

ADDNUM holds the value of the number following the 
+ pseudo-op. For example, it would hold 78 if this were the 
source code: LDA LABEL+78. 

The PLUSFLAG shows that there is something in the 
ADDNUM variable which must be added to the label in an 
argument. It shows that the + pseudo-op appears in the cur- 
rent source code line. 

BYTEFLAG shows that the < or > pseudo-op appears in 
the current source code line. It is an odd flag in that it has 
more than two states. It can be 0 indicating no < or >. And it 
can be 1 or 2 to distinguish between < and >. 

DISKFLAG means the .D NAME pseudo-op was activated 
and so object code should be sent to a disk object file to create 
a runnable ML program. 

PRINTFLAG means the .P pseudo-op was activated and a 
listing should go to the printer for a hard copy record of 
assembly. 

POKEFLAG means the .O pseudo-op was activated and 
all object code generated by assembly should be POKEd into 
RAM memory. 

COLFLAG is used in the Indisk subprogram to show that 
the previously assembled line of source code ended with a co- 
lon rather than a 0 (end of physical line). It tells Indisk not to 
look for a new source code line number. 

FOUNDELAG goes up when the same word is found 
more than once within the label array, proving that a label has 
been redefined. That’s illegal and results in an error message. 
This flag is used in the Array subprogram. 
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SFLAG means the .S pseudo-op is being used and a vis- 
ible listing of source and object code should appear on the 
screen during assembly. 

HXFLAG responds to the .H pseudo-op. If set (that’s the 
default, the normal start-up condition in LADS), all opcodes 
and arguments are printed (to screen or printer) in hexadeci- 
mal. HXFLAG is turned off by the .NH (no hex) pseudo-op 
and causes opcodes and arguments to be printed as decimal 
numbers. 

LOCFLAG, when set, tells the printout routines within 
the Eval subprogram that they need to print a PC address-type 
label. For example, a line like: 


100 START LDA #GREEN 


requires special handling so that the address-type label START 
will be printed on screen or printer in the correct format (or 
that it will be printed at all). LOCFLAG is used in Eval in lines 
790, 1210, and 3510. 

BABFLAG shows that there is a semicolon on a line of 
source code. It signifies that a REMark, a comment, appears on 
this line. It tells the printout routines that there is a comment 
which must also be printed on the screen or the printer 
following the printout of the business part of a line. 
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6502 Instruction Set 


Here are the 56 mnemonics, the 56 instructions you can give 
the 6502 (or 6510) chip. Each of them is described in several 
ways: what it does, what major uses it has in ML program- 

ming, what addressing modes it can use, what flags it affects, 
its opcode (hex/decimal), and the number of bytes it uses up. 


ADC 


What it does: Adds byte in memory to the byte in the 
Accumulator, plus the carry flag if set. Sets the carry flag if re- 
sult exceeds 255. The result is left in the Accumulator. 


Major uses: Adds two numbers together. If the carry flag 
is set prior to an ADC, the resulting number will be one 
greater than the total of the two numbers being added (the 
carry is added to the result). Thus, one always clears the carry 
(CLC) before beginning any addition operation. Following an 
ADC, a set (up) carry flag indicates that the result exceeded 
one byte’s capacity (was greater than 255), so you can chain- 
add bytes by subsequent ADCs without any further CLCs (see 
“Multi-Byte Addition” in Appendix D). 

Other flags affected by addition include the V (overflow) 
flag. This flag is rarely of any interest to the programmer. It 
merely indicates that a result became larger than could be held 
within bits 0-6. In other words, the result “overflowed” into 
bit 7, the highest bit in a byte. Of greater importance is the 
fact that the Z is set if the result of an addition is zero. Also 
the N flag is set if bit 7 is set. This N flag is called the “‘neg- 
ative’ flag because you can manipulate bytes thinking of the 
seventh bit as a sign (+ or —) to accomplish ‘‘signed 
arithmetic” if you want to. In this mode, each byte can hold a 
maximum value of 127 (since the seventh bit is used to reveal 
the number's sign), The B branching instruction’s Relative 
addressing mode uses this kind of arithmetic. 

ADC can be used following an SED which puts the 6502 
into ‘decimal mode.” Here’s an example. Note that the num- 
ber 75 is decimal after you SED: 
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SED 

CLC 

LDA #75 

ADC #$05 (this will result in 80) 

CLD (always get rid of decimal mode as soon as you’ve 


finished) 


Attractive as it sounds, the decimal mode isn’t of much real 
value to the programmer. LADS will let you work in decimal 
if you want to without requiring that you enter the 6502's 
mode. Just leave off the $ and LADS will handle the decimal 
numbers for you. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Immediate ADC #15 $69/105 2 
Zero Page ADC 15 $65/101 2 
Zero Page,X ADC 15,X $75 /117 2 
Absolute ADC 1500 $6D/109 3 
Absolute,X ADC 1500,X $7D/125 3 
Absolute, Y ADC 1500,Y $79/121 3 
Indirect,X ADC (15,X) $61/97 2 
Indirect, Y ADC (15),Y $71/113 2 


Affected flags: N ZC V 


AND 


What it does: Logical ANDs the byte in memory with the 
byte in the Accumulator. The result is left in the Accumulator. 
All bits in both bytes are compared, and if both bits are 1, the 
result is 1. If either or both bits are 0, the result is 0. 

Major uses: Most of the time, AND is used to turn bits 
off. Let’s say that you are pulling in numbers higher than 128 
(10000000 and higher) and you want to “unshift’”’ them and 
print them as lowercase letters. You can then put a zero into 
the seventh bit of your ‘“‘mask’’ and then AND the mask with 
the number being unshifted: 


LDA ? (test number) 
AND #$7F (01111111) 





240 


6502 Instruction Set 





(If either bit is 0, the result will be 0. So the seventh bit of the 
test number is turned off here and all the other bits in the test 
number are unaffected.) 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Immediate AND #15 $29/41 2 
Zero Page AND 15 $25 /37 2 
Zero Page,X AND 15/X $35 /53 2 
Absolute AND 1500 $2D/45 3 
Absolute,X AND 1500,X $3D/61 3 
Absolute, Y AND 1500,Y $39 /57 3 
Indirect,X AND (15,X) $21/33 2 
Indirect, Y AND (15), Y $31/49 2 


Affected flags: N Z 





ASL 

What it does: Shifts the bits in a byte to the left by 1. 
This byte can be in the Accumulator or in memory, depending 
on the addressing mode. The shift moves the seventh bit into 
the carry flag and shoves a 0 into the zeroth bit. 


NTE 
Carry 


Flag Bit Bit Bit Bit Bit Bit Bit Bit 
7 6 95 4 3 2 1 0 


Major uses: Allows you to multiply a number by 2. Num- 
bers bigger than 255 can be manipulated using ASL with ROL 
(see “Multiplication” in Appendix D). 

A secondary use is to move the lower four bits in a byte 
(a four-bit unit is often called a nybble) into the higher four 
bits. The lower bits are replaced by zeros, since ASL stuffs ze- 
ros into the zeroth bit of a byte. You move the lower to the 
higher nybble of a byte by: ASL ASL ASL ASL. 


241 


6502 Instruction Set 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Accumulator ASL $0A/10 1 
Zero Page ASL 15 $06/6 2 
Zero Page,X ASL 15,X $16/22 2 
Absolute ASL 1500 $0E/14 3 
Absolute,X ASL 1500,X $1E/30 3 


Affected flags: N ZC 


BCC 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the carry flag is clear. 
In effect, it branches if the second item is lower than the first, 
as in: LDA #150: CMP #149 or LDA #22: SBC #15. These ac- 
tions would clear the carry and, triggering BCC, a branch 
would take place. 

Major uses: For testing the results of CMP or ADC or 
other operations which affect the carry flag. IF-THEN or ON- 
GOTO type structures in ML can involve the BCC test. It is 
similar to BASIC’s > instruction. 





Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Relative BCC addr. $90/144 2 


Affected flags: none of them. 


BCS 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the carry flag is set. In 
effect, it branches if the second item is higher than the first, as 
in: LDA #150: CMP #249 or LDA #22: SBC #85. These ac- 
tions would set the carry and, triggering BCS, a branch would 
take place. 

Major uses: For testing the results of LDA or ADC or 
other operations which affect the carry flag. IF-THEN or ON- 





242 


6502 Instruction Set 


GOTO type structures in ML can involve the BCC test. It is 
similar to BASIC’s < instruction. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Relative BCS addr. $B0/176 2 


Affected flags: none of them. 





BEQ 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the zero flag (Z) is set. 
In other words, it branches if an action on two bytes results in 
a 0, as in: LDA #150: CMP #150 or LDA #22: SBC #22, 
These actions would set the zero flag, so the branch would 
take place. 

Major uses: For testing the results of LDA or ADC or 
other operations which affect the carry flag. IF-THEN or ON- 
GOTO type structures in ML can involve the BEQ test. It is 
similar to BASIC’s = instruction. 

Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Relative BEQ addr. $F0 /240 2 


Affected flags: none of them. 





BIT 


What it does: Tests the bits in the byte in memory against 
the bits in the byte held in the Accumulator. The bytes (mem- 
ory and Accumulator) are unaffected. BIT merely sets flags. 
The Z flag is set as if an Accumulator AND memory had been 
performed. The V flag and the N flag receive copies of the 
sixth and seventh bits of the tested number. 

Major uses: Although BIT has the advantage of not hav- 
ing any effect on the tested numbers, it is infrequently used 
because you cannot employ the Immediate addressing mode 
with it. Other tests (CMP and AND, for example) can be used 
instead. 
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Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Zero Page BIT 15 $24 /36 2 
Absolute BIT 1500 $2C/44 3 


Affected flags: N Z V 





BMI 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the negative (N) flag is 
set. In effect, it branches if the seventh bit has been set by the 
most recent event: LDA #150 or LDA #128 would set the sev- 
enth bit. These actions would set the N flag, signifying that a 
minus number is present if you are using signed arithmetic or 
that there is a shifted character (or a BASIC keyword) if you 
are thinking of a byte in terms of the ASCII code. 

Major uses: Testing for BASIC keywords, shifted ASCII, 
or graphics symbols. Testing for + or — in signed arithmetic. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Relative BMI addr. $30/48 2 


Affected flags: none of them. 


BNE 


What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the zero flag is clear. 
In other words, it branches if the result of the most recent 
event is not zero, as in: LDA #150: SBC #120 or LDA #128: 
CMP #125. These actions would clear the Z flag, signifying 
that a result was not 0. 

Major uses: The reverse of BEQ. BNE means Branch if 
Not Equal. Since a CMP subtracts one number from another 
to perform its comparison, a 0 result means that they are 
equal. Any other result will trigger a BNE (not equal). Like the 
other B branch instructions, it has uses in IF-THEN, ON- 
GOTO type structures and is used as a way to exit loops (for 
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example, BNE will branch back to the start of a loop until a 0 
delimiter is encountered at the end of a text message). BNE is 
like BASIC’s <> instruction. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Relative BNE addr. $D0/208 2 


Affected flags: none of them. 





BPL 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the N flag is clear. In 
effect, it branches if the seventh bit is clear in the most recent 
event, as in: LDA #12 or LDA #127. These actions would 
clear the N flag, signifying that a plus number (or zero) is 
present in signed arithmetic mode. 

Major uses: For testing the results of LDA or ADC or 
other operations which affect the negative (N) flag. IF-THEN 
or ON-GOTO type structures in ML can involve the BCC test. 
It is the opposite of the BMI instruction. BPL can be used for 
tests of ‘‘unshifted’’ ASCII characters and other bytes which 
have the seventh bit off and so are lower than 128 
(OXXXXXXX). 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Relative BPL addr. $10/16 2 


Affected flags: none of them. 


BRK 


What it does: Causes a forced interrupt. This interrupt 
cannot be masked (prevented) by setting the | (interrupt) flag 
within the Status Register. If there is a Break Interrupt Vector 
(a vector is like a pointer) in the computer, it may point to a 
resident monitor if the computer has one. The PC and the Sta- 
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tus Register are saved on the stack. The PC points to the loca- 
tion of the BRK + 2. 

Major uses: Debugging an ML program can often start 
with a sprinkling of BRKs into suspicious locations within the 
code. The ML is executed, a BRK stops execution and drops 
you into the monitor, you examine registers or tables or vari- 
ables to see if they are as they should be at this point in the 
execution, and then you restart execution from the breakpoint. 
This instruction is essentially identical to the actions and uses 
of the STOP command in BASIC. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Implied BRK $00/0 1 


Affected flags: Break (B) flag is set. 





BVC 


What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the V (overflow) flag 
is clear. 

Major uses: None. In practice, few programmers use 
“signed” arithmetic where the seventh bit is devoted to in- 
dicating a positive or negative number (a set seventh bit 
means a negative number). The V flag has the job of notifying 
you when you've added, say 120 + 30, and have therefore set 
the seventh bit via an “overflow” (a result greater than 127). 
The result of your addition of two positive numbers should 
not be seen as a negative number, but the seventh bit is set. 
The V flag can be tested and will then reveal that your answer 
is still positive, but an overflow took place. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Relative BVC addr. $50/80 2 


Affected flags: none of them. 
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BVS 

What it does: Branches up to 127 bytes forward or 128 
bytes backward from its own address if the V (overflow) flag 
is set). 

Major uses: None. See BVC above. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Relative BVS addr. $70/112 2 


Affected flags: none of them. 


CLC 


What it does: Clears the carry flag. (Puts a 0 into it.) 

Major uses: Always used before any addition (ADC). If 
there are to be a series of additions (multiple-byte addition), 
only the first ADC is preceded by CLC since the carry feature 
is necessary. There might be a carry, and the result will be in- 
correct if it is not taken into account. 

The 6502 does not offer an addition instruction without 
the carry feature. Thus, you must always clear it before the 
first ADC so a carry won't be accidentally added. 





Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Implied CLC $18/24 1 


Affected flags: Carry (C) flag is set to zero. 


CLD 


What it does: Clears the decimal mode flag. (Puts a 0 into 
it.) 

Major uses: Commodore computers execute a CLD when 
first turned on as well as upon entry to monitor modes 
(PET/CBM models) and when the SYS command occurs. Ap- 
ple and Atari, however, can arrive in an ML environment with 
the D flag in an indeterminant state. An attempt to execute 
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ML with this flag set would cause disaster—all mathematics 
would be performed in “decimal mode.” It is therefore sug- 
gested that owners of Apple and Atari computers CLD during 
the early phase, the initialization phase, of their programs. 
Though this is an unlikely bug, it would be a difficult one to 
recognize should it occur. 

For further detail about the 6502’s decimal mode, see SED 
below. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Implied CLD $D8/216 1 


Affected flags: Decimal (D) flag is set to zero. 


CLI 


What it does: Clears the interrupt-disable flag. All inter- 
rupts will therefore be serviced (including maskable ones). 

Major uses: To restore normal interrupt routine process- 
ing following a temporary suspension of interrupts for the 


purpose of redirecting the interrupt vector. For more detail, see 
SEI below. 


Addressing Modes: 





Number of 
Name Format Opcode Bytes Used 
Implied CLI $58/88 1 


Affected flags: Interrupt (I) flag is set to zero. 





CLV 


What it does: Clears the overflow flag. (Puts a 0 into it.) 
Major uses: None. (See BVC above.) 


248 


6502 Instruction Set 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Implied CLV $B8/184 1 


Affected flags: Overflow (V) flag is set to zero. 


CMP 


What it does: Compares the byte in memory to the byte 
in the Accumulator. Three flags are affected, but the bytes in 
memory and in the Accumulator are undisturbed. A CMP is 
actually a subtraction of the byte in memory from the byte in 
the Accumulator. Therefore, if you LDA #15:CMP #15—the 
result (of the subtraction) will be zero, and BEQ would be trig- 
gered since the CMP would have set the Z flag. 

Major uses: This is an important instruction in ML. It is 
central to IF-THEN and ON-GOTO type structures. In 
combination with the B branching instructions like BEQ, CMP 
allows the 6502 chip to make decisions, to take alternative 
pathways depending on comparisons. CMP throws the N, Z, 
or C flags up or down. Then a B instruction can branch, 
depending on the condition of a flag. 

Often, an action will affect flags by itself, and a CMP will 
not be necessary. For example, LDA #15 will put a 0 into the 
N flag (seventh bit not set) and will put a 0 into the Z flag 
(the result was not 0). LDA does not affect the C flag. In any 
event, you could LDA #15: BPL TARGET, and the branch 
would take effect. However, if you LDA $20 and need to 
know if the byte loaded is precisely $0D, you must CMP 
#$0D:BEQ TARGET. So, while CMP is sometimes not ab- 
solutely necessary, it will never hurt to include it prior to 
branching. 

Another important branch decision is based on > or < 
situations. In this case, you use BCC and BCS to test the C 
(carry) flag. And you've got to keep in mind the order of the 
numbers being compared. The memory byte is compared to 
the byte sitting in the Accumulator. The structure is: memory 
is less than or equal to the Accumulator (BCC is triggered be- 
cause the carry flag was cleared). Or memory is more than 
Accumulator (BCS is triggered because the carry flag was set). 
Here’s an example. If you want to find out if the number in 
the Accumulator is less than $40, just CMP #$41:BCC 
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LESSTHAN (be sure to remember that the carry flag is cleared 
if a number is less than or equal; that’s why we test for less 
than $40 by comparing with a $41): 

LDA #75 

CMP #$41; IS IT LESS THAN $40? 

BCC LESSTHAN 


One final comment about the useful BCC/BCS tests 
following CMP: It’s easy to remember that BCC means less 
than or equal and BCS means more than if you notice that C is 
less than S in the alphabet. 

The other flag affected by CMPs is the N flag. Its uses are 
limited since it merely reports the status of the seventh bit; 
BPL triggers if that bit is clear, BMI triggers if it’s set. How- 
ever, that seventh bit does show whether the number is 
greater than (or equal to) or less than 128, and you can apply 
this information to the ASCII code or to look for BASIC 
keywords or to search data bases (BPL and BMI are used by 
LADS’ data base search routines in the Array subprogram). 
Nevertheless, since LDA and many other instructions affect 
the N flag, you can often directly BPL or BMI without any 
need to CMP first. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Immediate CMP #15 $C9/201 2 
Zero Page CMP 15 $C5/197 2 
Zero Page,X CMP 15,X $D5/213 2 
Absolute CMP 1500 $CD/205 3 
Absolute,X CMP 1500,X $DD/221 3 
Absolute, Y CMP 1500,Y $D9/217 3 
Indirect,X CMP (15,X) $C1/193 2 
Indirect, Y CMP (15),Y $D1/209 ‘2 


Affected flags: N ZC 





CPX 


What it does: Compares the byte in memory to the byte 
in the X Register. Three flags are affected, but the bytes in 
memory and in the X Register are undisturbed. A CPX is ac- 
tually a subtraction of the byte in memory from the byte in 
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the X Register. Therefore, if you LDA #15:CPX #15—the re- 
sult (of the subtraction) will be zero and BEQ would be trig- 
gered since the CPX would have set the Z flag. 

Major uses: X is generally used as an index, a counter 
within loops. Though the Y Register is often preferred as an 
index since it can serve for the very useful Indirect Y address- 
ing mode (LDA (15),Y)—the X Register is nevertheless pressed 
into service when more than one index is necessary or when Y 
is busy with other tasks. 

In any case, the flags, conditions, and purposes of CPX 
are quite similar to CMP (the equivalent comparison instruc- 
tion for the Accumulator). For further information on the vari- 
ous possible comparisons (greater than, equal, less than, not 
equal), see CMP above. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Immediate CPX #15 $E0/224 2 
Zero Page CPX 15 $E4/228 2 
Absolute CPX 1500 $EC/236 3 


Affected flags: N ZC 





CPY 


What it does: Compares the byte in memory to the byte 
in the Y Register. Three flags are affected, but the bytes in 
memory and in the Y Register are undisturbed. A CPX is ac- 
tually a subtraction of the byte in memory from the byte in 
the Y Register. Therefore, if you LDA #15: CPY #15—the re- 
sult (of the subtraction) will be zero, and BEQ would be trig- 
gered since the CPY would have set the Z flag. 

Major uses: Y is the most popular index, the most heavily 
used counter within loops since it can serve two purposes: It 
permits the very useful Indirect Y addressing mode (LDA 
(15),Y) and can simultaneously maintain a count of loop 
events. 

See CMP above for a detailed discussion of the various 
branch comparisons which CPY can implement. 
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to reverse the current state of the sixth bit in a given byte: 
LDA BYTE:EOR #$40:STA BYTE. This will set bit 6 in BYTE if 
it was 0 (and clear it if it was 1). This selective bit toggling 
could be used to “shift’’ an unshifted ASCII character via EOR 
#80 (1000000). Or if the character were shifted, EOR #$80 
would make it lowercase. EOR toggles. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Immediate EOR #15 $49/73 2 
Zero Page EOR 15 $45 /69 2 
Zero Page,X EOR 15,X $55 /85 2 
Absolute EOR 1500 $4D/77 3 
Absolute,X EOR 1500,X $5D/93 3 
Absolute, Y EOR 1500,Y $59/89 3 
Indirect,X EOR (15,X) $41/65 2 
Indirect, Y EOR (15),Y $51/81 2 


Affected flags: N Z 





INC 


What it does: Increases the value of a byte in memory by 
1. 

Major uses: Used exactly as DEC (see DEC above), except 
it counts up instead of down. For raising address pointers or 
supplementing the X and Y Registers as loop indexes. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Zero Page INC 15 $E6/230 2 
Zero Page,X INC 15,X $F6/246 2 
Absolute INC 1500 $EE/238 3 
Absolute,X INC 1500,X $FE/254 3 


Affected flags: N Z 





INX 


What it does: Increases the X Register by 1. 
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the X Register. Therefore, if you LDA #15:CPX #15—the re- 
sult (of the subtraction) will be zero and BEQ would be trig- 
gered since the CPX would have set the Z flag. 

Major uses: X is generally used as an index, a counter 
within loops. Though the Y Register is often preferred as an 
index since it can serve for the very useful Indirect Y address- 
ing mode (LDA (15),Y)—the X Register is nevertheless pressed 
into service when more than one index is necessary or when Y 
is busy with other tasks. 

In any case, the flags, conditions, and purposes of CPX 
are quite similar to CMP (the equivalent comparison instruc- 
tion for the Accumulator). For further information on the vari- 
ous possible comparisons (greater than, equal, less than, not 
equal), see CMP above. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Immediate CPX #15 $E0/224 2 
Zero Page CPX 15 $E4/228 2 
Absolute CPX 1500 $EC/236 3 


Affected flags: N ZC 





CPY 


What it does: Compares the byte in memory to the byte 
in the Y Register. Three flags are affected, but the bytes in 
memory and in the Y Register are undisturbed. A CPX is ac- 
tually a subtraction of the byte in memory from the byte in 
the Y Register. Therefore, if you LDA #15: CPY #15—the re- 
sult (of the subtraction) will be zero, and BEQ would be trig- 
gered since the CPY would have set the Z flag. 

Major uses: Y is the most popular index, the most heavily 
used counter within loops since it can serve two purposes: It 
permits the very useful Indirect Y addressing mode (LDA 
(15),Y) and can simultaneously maintain a count of loop 
events. 

See CMP above for a detailed discussion of the various 
branch comparisons which CPY can implement. 
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to reverse the current state of the sixth bit in a given byte: 
LDA BYTE:EOR #$40:STA BYTE. This will set bit 6 in BYTE if 
it was 0 (and clear it if it was 1). This selective bit toggling 
could be used to “shift” an unshifted ASCII character via EOR 
#$80 (1000000). Or if the character were shifted, EOR #$80 
would make it lowercase. EOR toggles. 





Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Immediate EOR #15 $49/73 2 
Zero Page EOR 15 $45 /69 2 
Zero Page,X EOR 15,X $55 /85 2 
Absolute EOR 1500 $4D/77 3 
Absolute,X EOR 1500,X $5D/93 3 
Absolute, Y EOR 1500,Y $59 /89 3 
Indirect,X EOR (15,X) $41/65 2 
Indirect, Y EOR (15),Y $51/81 2 
Affected flags: N Z 


What it does: Increases the value of a byte in memory by 
1. 

Major uses: Used exactly as DEC (see DEC above), except 
it counts up instead of down. For raising address pointers or 
supplementing the X and Y Registers as loop indexes. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Zero Page INC 15 $E6/230 2 
Zero Page,X INC 15,X $F6/246 2 
Absolute INC 1500 $EE/238 3 
Absolute,X INC 1500,X $FE/254 3 


Affected flags: N Z 





INX 


What it does: Increases the X Register by 1. 
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Major uses: Used exactly as DEX (see DEX above), except 
it counts up instead of down. For loop indexing. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Implied INX $E8 /232 1 


Affected flags: N Z 





INY 


What it does: Increases the Y Register by 1. 

Major uses: Used exactly as DEY (see DEY above), except 
it counts up instead of down. For loop indexing and working 
with the Indirect Y addressing mode (LDA (15),Y). 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Implied INY $C8 /200 1 


Affected flags: N Z 


JMP 

What it does: Jumps to any location in memory. 

Major uses: Branching long range. It is the equivalent of 
BASIC’s GOTO instruction. The bytes in the Program Counter 
are replaced with the address (the argument) following the 
JMP instruction and, therefore, program execution continues 
from this new address. 

Indirect jumping—JMP (1500)—is not recommended, al- 
though some programmers find it useful. It allows you to set 
up a table of jump targets and bounce off them indirectly. For 
example, if you had placed the numbers $00 $04 in addresses 
$88 and $89, a JMP ($0088) instruction would send the pro- 
gram to whatever ML routine was located in address $0400. 
Unfortunately, if you should locate one of your pointers on 
the edge of a page (for example, $00FF or $17FF), this Indirect 
JMP addressing mode reveals its great weakness. There is a 
bug which causes the jump to travel to the wrong place—JMP 
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($00FF) picks up the first byte of the pointer from $00FF, but 
the second byte of the pointer will be incorrectly taken from 
$0000. With JMP ($17FF), the second byte of the pointer 
would come from what’s in address $1700. 

Since there is this bug, and since there are no compelling 
reasons to set up JMP tables, you might want to forget you 
ever heard of Indirect jumping. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Absolute JMP 1500 $4C/76 3 
Indirect JMP (1500) $6C/108 3 


Affected flags: none of them. 


SR 
J What it does: Jumps to a subroutine anywhere in mem- 
ory. Saves the PC (Program Counter) address, plus three, of 
the JSR instruction by pushing it onto the stack. The next RTS 
in the program will then pull that address off the stack and re- 
turn to the instruction following the JSR. 

Major uses: As the direct equivalent of BASIC’s GOSUB 
command, JSR is heavily used in ML programming to send 
control to a subroutine and then (via RTS) to return and pick 
up where you left off. The larger and more sophisticated a 
program becomes, the more often JSR will be invoked. In 
LADS, whenever something is printed to screen or printer, 
you'll often see a chain of JSRs performing necessary tasks: 
JSR PRNTCR: JSR PRNTSA;:JSR.PRNTSPACE:JSR 
PRNTNUM:JSR PRNTSPACE. This JSR chain prints a carriage 
return, the current assembly address, a space, a number, and 
another space. 

Another thing you might notice in LADS and other ML 
programs is a PLA:PLA pair. Since JSR stuffs the correct return 
address onto the stack before leaving for a subroutine, you 
need to do something about that return address if you later 
decide not to RTS back to the position of the JSR in the pro- 
gram. This might be the case if you usually want to RTS, but 
in some particular cases, you don’t. For those cases, you can 
take control of program flow by removing the return address 
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from the stack (PLA:PLA will clean off the two-byte address) 
and then performing a direct JMP to wherever you want to go. 

If you JMP out of a subroutine without PLA:PLA, you 
could easily overflow the stack and crash the program. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Absolute JSR 1500 $20/32 3 


Affected flags: none of them. 





LDA 


What it does: Loads the Accumulator with a byte from 
memory. Copy might be a better word than load, since the byte 
in memory is unaffected by the transfer. 

Major uses: The busiest place in the computer. Bytes 
coming in from disk, tape, or keyboard all flow through the 
Accumulator, as do bytes on their way to screen or 
peripherals. Also, because the Accumulator differs in some im- 
portant ways from the X and Y Registers, the Accumulator is 
used by ML programmers in a different way from the other 
registers. 

Since INY/DEY and INX/DEX make those registers useful 
as counters for loops (the Accumulator couldn’t be conve- 
niently employed as an index; there is no INA instruction), the 
Accumulator is the main temporary storage register for bytes 
during their manipulation in an ML program. ML program- 
ming, in fact, can be defined as essentially the rapid, or- 
ganized maneuvering of single bytes in memory. And it is the 
Accumulator where these bytes often briefly rest before being 
sent elsewhere. 
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Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Immediate LDA #15 $A9/169 2 
Zero Page LDA 15 $A5/165 2 
Zero Page,X LDA 15,X $B5/181 2 
Absolute LDA 1500 $AD/173 3 
Absolute,X LDA 1500,X $BD/189 3 
Absolute, Y LDA 1500,Y $B9 /185 3 
Indirect,X LDA (15,X) $A1/161 2 
Indirect, Y LDA (15),Y $B1/177 2 


Affected flags: N Z 





LDX 


What it does: Loads the X Register with a byte from 
memory. 

Major uses: The X Register can perform many of the tasks 
that the Accumulator performs, but it is generally used as an 
index for loops. In preparation for its role as an index, LDX 
puts a value into the register. 


Addressing Modes: 





Number of 
Name Format Opcode Bytes Used 
Immediate LDX #15 $A2/162 2 
Zero Page LDX 15 $A6/166 2 
Zero Page, Y LDX 15,Y $B6/182 2 
Absolute LDX 1500 $AE/174 3 
Absolute, Y LDX 1500,Y $BE/190 3 
Affected flags: N Z 


What it does: Loads the Y Register with a byte from 
memory. 

Major uses: The Y Register can perform many of the 
tasks that the Accumulator performs, but it is generally used 
as an index for loops. In preparation for its role as an index, 
LDY puts a value into the register. 
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Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Immediate LDY #15 $A0/160 2 
Zero Page LDY 15 $A4/164 2 
Zero Page,X LDY 15,X $B4/180 2 
Absolute LDY 1500 $AC/172 3 
Absolute,X LDY 1500,X $BC/188 3 


Affected flags: N Z 





LSR 


What it does: Shifts the bits in the Accumulator or in a 
byte in memory to the right, by one bit. A zero is stuffed into 
bit 7, and bit 0 is put into the carry flag. 


SPEER ETE 
Carry 


Bit Bit Bit Bit Bit Bit Bit Bit Flag 
7 6 5 4 3 2 1 0 


Major uses: To divide a byte by 2. In combination with 
the ROR instruction, LSR can divide a two-byte or larger num- 
ber (see Appendix D). 

LSR:LSR:LSR:LSR will put the high four bits (the high 
nybble) into the low nybble (with the high nybble replaced by 
the zeros being stuffed into the seventh bit and then shifted to 
the right). 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Accumulator LSR $4A/74 2 
Zero Page LSR 15 $46/70 2 
Zero Page,X LSR 15,X $56/86 2 
Absolute LSR 1500 $4E/78 3 
Absolute,X LSR 1500,X $5E/94 3 


Affected flags: N ZC 
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NOP 


What it does: Nothing. No operation. 

Major uses: Debugging. When setting breakpoints with 
BRK, you will often discover that a breakpoint, when exam- 
ined, passes the test. That is, there is nothing wrong at that 
place in the program. So, to allow the program to execute to 
the next breakpoint, you cover the BRK with a NOP. Then, 
when you run the program, the computer will slide over the 
NOP with no effect on the program. Three NOPs could cover 
a JSR XXXX, and you could see the effect on the program 
when that particular JSR is eliminated. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Implied NOP $EA /234 1 


Affected flags: none of them. 





ORA 


What it does: Logically ORs a byte in memory with the 
byte in the Accumulator. The result is in the Accumulator. An 
OR results in a 1 if either the bit in memory or the bit in the 
Accumulator is 1. 


Major uses: Like an AND mask which turns bits off, ORA 
masks can be used to turn bits on. For example, if you wanted 
to “shift’’ an ASCII character by setting the seventh bit, you 
could LDA CHARACTER:ORA #$80. The number $80 in bi- 
nary is 10000000, so all the bits in CHARACTER which are 
ORed with zeros here will be left unchanged. (If a bit in 
CHARACTER is a 1, it stays a 1. If it is a zero, it stays 0.) But 
the 1 in the seventh bit of $80 will cause a 0 in the CHARAC- 
TER to turn into a 1. (If CHARACTER already has a 1 in its 
seventh bit, it will remain a 1.) 
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Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Immediate ORA #15 $09/9 2 
Zero Page ORA 15 $05/5 2 
Zero Page,X ORA 15,X $15/21 2 
Absolute ORA 1500 $0D/13 3 
Absolute,X ORA 1500,X $1D/29 3 
Absolute, Y ORA 1500,Y $19/25 3 
Indirect,X ORA (15,X) $01/1 2 
Indirect, Y ORA (15), Y $11/17 2 


Affected flags: N Z 





PHA 


What it does: Pushes the Accumulator onto the stack. 

Major uses: To temporarily (very temporarily) save the 
byte in the Accumulator. If you are within a particular sub- 
routine and you need to save a value for a brief time, you can 
PHA it. But beware that you must PLA it back into the Accu- 
mulator before any RTS so that it won't misdirect the computer 
to the wrong RTS address. All RTS addresses are saved on the 
stack, Probably a safer way to temporarily save a value (a 
number) would be to STA TEMP or put it in some other tem- 
porary variable that you've set aside to hold things. Also, the 
values of A, X, and Y need to be temporarily saved, and the 
programmer will combine TYA and TXA with several PHAs to 
stuff all three registers onto the stack. But, again, matching 
PLAs must restore the stack as soon as possible and certainly 
prior to any RTS. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Implied PHA $48/72 1 


Affected flags: none of them . 
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PHP 


What it does: Pushes the “processor status” onto the top 
of the stack. This byte is the Status Register, the byte which 
holds all the flags: N Z CI D V. 

Major uses: To temporarily (very temporarily) save the 
state of the flags. If you need to preserve the all current con- 
ditions for a minute (see description of PHA above), you may 
also want to preserve the Status Register as well. You must, 
however, restore the Status Register byte and clean up the 
stack by using a PLP before the next RTS. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Implied PHP $08/8 1 


Affected flags: none of them. 





PLA 


What it does: Pulls the top byte off the stack and puts it 
into the Accumulator. 


Major uses: To restore a number which was temporarily 
stored on top of the stack (with the PHA instruction). It is the 
opposite action of PHA (see above). Note that PLA does affect 
the N and Z flags. Each PHA must be matched by a 
corresponding PLA if the stack is to correctly maintain RTS 
addresses, which is the main purpose of the stack. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Implied PLA $68/104 1 


Affected flags: N Z 





PLP 


What it does: Pulls the top byte off the stack and puts it 
into the Status Register (where the flags are). PLP is a mne- 
monic for PuLl Processor status. 
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Major uses: To restore the condition of the flags after the 
Status Register has been temporarily stored on top of the stack 
(with the PHP instruction). It is the opposite action of PHP 
(see above). PLP, of course, affects all the flags. Any PHP 
must be matched by a corresponding PLP if the stack is to cor- 
rectly maintain RTS addresses, which is the main purpose of 
the stack. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Implied PLP $28 /40 1 


Affected flags: all of them. 


ROL 


What it does: Rotates the bits in the Accumulator or in a 
byte in memory to the left, by one bit. A rotate left (as op- 
posed to an ASL, Arithmetic Shift Left) moves bit 7 to the 
carry, moves the carry into bit 0, and every other bit moves one 
position to its left. (ASL operates quite similarly, except it al- 
ways puts a 0 into bit 0.) 





Carry 
Flag Bit Bit Bit Bit Bit Bit Bit Bit 
7 6 5 4 3 2 1 #0 


Major uses: To multiply a byte by 2. ROL can be used 
with ASL to multiply multiple-byte numbers since ROL pulls 
any carry into bit 0. If an ASL resulted in a carry, it would be 
thus taken into account in the next higher byte in a multiple- 
byte number. (See Appendix D.) 

Notice how the act of moving columns of binary numbers 
to the left has the effect of multiplying by 2: 

0010 (the number 2 in binary) 
0100 (the number 4) 
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This same effect can be observed with decimal numbers, 
except the columns represent powers of 10: 


0010 (the number 10 in decimal) 
0100 (the number 100) 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Accumulator ROL $2A/42 1 
Zero Page ROL 15 $26/38 2 
Zero Page,X ROL 15,X $36/54 2 
Absolute ROL 1500 $2E/46 3 
Absolute,X ROL 1500,X $3E/62 3 


Affected flags: N ZC 





ROR 


What it does: Rotates the bits in the Accumulator or in a 
byte in memory to the right, by one bit. A rotate right (as op- 
posed to a LSR, Logical Shift Right) moves bit 0 into the carry, 
moves the carry into bit 7, and every other bit moves one po- 
sition to its right. (LSR operates quite similarly, except it al- 
ways puts a 0 into bit 7.) 


Carry 
Bit Bit Bit Bit Bit Bit Bit Bit Flag 
7 6 5 4 3 2 1 0 


Major uses: To divide a byte by 2. ROR can be used with 
LSR to divide multiple-byte numbers since ROR puts any 
carry into bit 7. If an LSR resulted in a carry, it would be thus 
taken into account in the next lower byte in a multiple-byte 
number. (See Appendix D.) 

Notice how the act of moving columns of binary numbers 
to the right has the effect of dividing by 2: 

1000 (the number 8 in binary) 
0100 (the number 4) 
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This same effect can be observed with decimal numbers, 
except the columns represent powers of 10: 


1000 (the number 1000 in decimal) 
0100 (the number 100) 
Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Accumulator ROR $6A/106 1 
Zero Page ROR 15 $66/102 2 
Zero Page,X ROR 15,X $76/118 2 
Absolute ROR 1500 $6E/110 3 
Absolute,X ROR 1500,X $7E/126 3 


Affected flags: N ZC 





RTI 


What it does: Returns from an interrupt. 


Major uses: None. You might want to add your own 
routines to your machine’s normal interrupt routines (see SEI 
below), but you won't be generating actual interrupts of your 
own. Consequently, you cannot ReTurn from Interrupts you 
never create. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Implied RTI $40 /64 1 


Affected flags: all of them (Status Register is retrieved from the 
stack). 


RTS 

What it does: Returns from a subroutine jump (caused by 
JSR). 

Major uses: Automatically picks off the two top bytes on 
the stack and places them into the Program Counter. This re- 
verses the actions taken by JSR (which put the Program 
Counter bytes onto the stack just before leaving for a sub- 
routine). When RTS puts the return bytes into the Program 
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Counter, the next event in the computer’s world will be the 
instruction following the JSR which stuffed the return address 
onto the stack in the first place. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Implied RTS $60/96 1 


Affected flags: none of them. 





SBC 


What it does: Subtracts a byte in memory from the byte 
in the Accumulator, and “borrows” if necessary. If a “borrow” 
takes place, the carry flag is cleared (set to 0). Thus, you al- 
ways SEC (set the carry flag) before an SBC operation so you 
can tell if you need a “borrow.” In other words, when an SBC 
operation clears the carry flag, it means that the byte in mem- 
ory was larger than the byte in the Accumulator. And since 
memory is subtracted from the Accumulator in an SBC opera- 
tion, if memory is the larger number, we must “borrow.” 


Major uses: Subtracts one number from another. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Immediate SBC #15 $E9 /233 2 
Zero Page SBC 15 $E5 /229 2 
Zero Page,X SBC 15,X $F5 /245 2 
Absolute SBC 1500 $ED/237 3 
Absolute,X SBC 1500,X $FD/253 3 
Absolute, Y SBC 1500,Y $F9/249 3 
Indirect,X SBC (15,X) $E1/225 2 
Indirect,Y SBC (15),Y $F1/241 2 


Affected flags: N ZC V 





SEC 


What it does: Sets the carry (C) flag (in the processor Sta- 
tus Register byte). 
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Major uses: This instruction is always used before any 
SBC operation to show if the result of the subtraction was 
negative (if the Accumulator contained a smaller number than 
the byte in memory being subtracted from it). See SBC above. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Implied SEC $38 /56 1 


Affected flags: C 


SED 


What it does: Sets the decimal (D) flag (in the processor 
Status Register byte). 

Major uses: Setting this flag puts the 6502 into decimal 
arithmetic mode. This mode can be easier to use when you are 
inputting or outputting decimal numbers (from the user of a 
program or to the screen). Simple addition and subtraction can 
be performed in decimal mode, but most programmers ignore 
this feature since more complicated math requires that you re- 
main in the normal binary state of the 6502. 

Note: Commodore computers automatically clear this mode 
when entering ML via SYS. However, Apple and Atari computers 
can enter ML in an indeterminant state. Since there is a possibil- 
ity that the D flag might be set (causing havoc) on entry to an ML 
routine, it is sometimes suggested that owners of these two 
computers use the CLD instruction at the start of any ML program 
they write. Any ML programmer must CLD following any deltb- 
erate use of the decimal mode. 





Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 


Implied SED $F8 /248 1 
Affected flags: D 
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SEI 

What it does: Sets the interrupt disable flag (the I flag) in 
the processor status byte. When this flag is up, the 6502 will 
not acknowledge or act upon interrupt attempts (except a few 
nonmaskable interrupts which can take control in spite of this 
flag, like a reset of the entire computer). The operating sys- 
tems of most computers will regularly interrupt the activities 
of the chip for necessary, high-priority tasks such as updating 
an internal clock, displaying things on the TV, receiving sig- 
nals from the keyboard, etc. These interruptions of whatever 
the chip is doing normally occur 60 times every second. To 
find out what housekeeping routines your computer interrupts 
the chip to accomplish, look at the pointer in $FFFE/FFFF. It 
gives the starting address of the maskable interrupt routines. 


Major uses: You can alter a RAM pointer so that it sends 
these interrupts to your own ML routine, and your routine then 
would conclude by pointing to the normal interrupt routines. 
In this way, you can add something you want (a click sound 
for each keystroke? the time of day on the screen?) to the nor- 
mal actions of your operating system. The advantage of this 
method over normal SYSing is that your interrupt-driven rou- 
tine is essentially transparent to whatever else you are doing 
(in whatever language). Your customization appears to have 
become part of the computer’s ordinary habits. 

However, if you try to alter the RAM pointer while the 
other interrupts are active, you will point away from the nor- 
mal housekeeping routines in ROM, crashing the computer. 
This is where SEI comes in. You disable the interrupts while 
you LDA STA LDA STA the new pointer. Then CLI turns the 
interrupt back on and nothing is disturbed. 

Interrupt processing is a whole subcategory of ML 
programming and has been widely discussed in magazine arti- 
cles. Look there if you need more detail. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Implied SEI $78 /120 1 


Affected flags: | 
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STA 


What it does: Stores the byte in the Accumulator into 
memory. 

Major uses: Can serve many purposes and is among the 
most used instructions. Many other instructions leave their re- 
sults in the Accumulator (ADC/SBC and logical operations 
like ORA), after which they are stored in memory with STA. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Zero Page STA 15 $85 /133 2 
Zero Page,X STA 15,X $95 /149 2 
Absolute STA 1500 $8D/141 3 
Absolute,X STA 1500,X $9D/157 3 
Absolute, Y STA 1500,Y $99 /153 3 
Indirect,X STA (15,X) $81/129 2 
Indirect, Y STA (15),Y $91/145 2 


Affected flags: none of them. 





STX 

What it does: Stores the byte in the X Register into 
memory. 

Major uses: Copies the byte in X into a byte in memory. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Zero Page STX 15 $86/134 2 
Zero Page, Y STX 15,Y $96/150 2 
Absolute STX 1500 $8E/142 3 


Affected flags: none of them. 





What it does: Stores the byte in the Y Register into 
memory. 
Major uses: Copies the byte in Y into a byte in memory. 
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Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Zero Page STY 15 $84 /132 2 
Zero Page,X STY 15,X $94/148 2 
Absolute STY 1500 $8C/140 3 


Affected flags: none of them. 


TAX 


What it does: Transfers the byte in the Accumulator to 
the X Register. 


Major uses: Sometimes you can copy the byte in the 
Accumulator into the X Register as a way of briefly storing the 
byte until it’s needed again by the Accumulator. If X is cur- 
rently unused, TAX is a convenient alternative to PHA (an- 
other temporary storage method). 

However, since X is often employed as a loop counter, 
TAX is a relatively rarely used instruction. 





Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Implied TAX $AA/170 1 


Affected flags: N Z 





TAY 


What it does: Transfers the byte in the Accumulator to 
the Y Register. 

Major uses: Sometimes you can copy the byte in the 
Accumulator into the Y Register as a way of briefly storing the 
byte until it’s needed again by the Accumulator. If Y is cur- 
rently unused, TAY is a convenient alternative to PHA (an- 
other temporary storage method). 

However, since Y is quite often employed as a loop 
counter, TAY is a relatively rarely used instruction. 
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Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Implied TAY $A8/168 1 


Affected flags: N Z 





TSX 

What it does: Transfers the Stack Pointer to the X 
Register. 

Major uses: The Stack Pointer is a byte in the 6502 chip 
which points to where a new value (number) can be added to 
the stack. The Stack Pointer would be “‘raised’”’ by two, for 
example, when you JSR and the two bytes of the Program 
Counter are pushed onto the stack. The next available space 
on the stack thus becomes two higher than it was previously. 
By contrast, an RTS will pull a two-byte return address off the 
stack, freeing up some space, and the Stack Pointer would 
then be “lowered” by two. 

The Stack Pointer is always added to $0100 since the 
stack is located between addresses $0100 and $01FF. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Implied TSX $BA/186 1 


Affected flags: N Z 


TXA 

What it does: Transfers the byte in the X Register to the 
Accumulator. 

Major uses: There are times, after X has been used as a 
counter, when you'll want to compute something using the 
value of the counter. And you'll therefore need to transfer the 
byte in X to the Accumulator. For example, if you search the 
screen for character $75: 
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CHARACTER = $75:SCREEN = 

$0400 

LDX #0 

LOOP LDA SCREEN,X:CMP 

#CHARACTER:BEQ MORE;:INX 

BEQ NOTFOUND ; (this prevents an endless loop 

MORE TXA ; (you now know the charac- 
ter’s location) 

NOTFOUND BRK 


In this example, we want to perform some action based 
on the location of the character. Perhaps we want to remem- 
ber the location in a variable for later reference. This will re- 
quire that we transfer the value of X to the Accumulator so it 
can be added to the SCREEN start address. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Implied TXA $8A/138 1 


Affected flags: N Z 





TXS 


What it does: Transfers the byte in X Register into the 
Stack Pointer. 

Major uses: Alters where, in the stack, the current “‘here’s 
storage space” is pointed to. There are no common uses for 
this instruction. 


Addressing Modes: 


Number of 
Name Format Opcode Bytes Used 
Implied TXS $9A/154 1 


Affected flags: none of them. 
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TYA 
What it does: Transfers the byte in the Y Register to the 
Accumulator. 


Major uses: See TXA. 


Addressing Modes: 

Number of 
Name Format Opcode Bytes Used 
Implied TYA $98/152 1 


Affected flags: N Z 
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Adding Error Traps, 
RAM-Based Assembly, and 


a Disassembler 


Special Notes on the Construction of 


Atari and Apple LADS 


Imagine how nice it would be if you could add any additional 
commands to BASIC that you desired. You wouldn’t just tem- 
porarily wedge the new commands into a frozen ROM BASIC. 
Instead, you would simply define the new commands, and 
they would then become a permanent part of your program- 
ming language. 

This freedom to change a language is called extensibility. 
It’s one of the best features of Forth and a few other lan- 
guages. Extensibility opens up a language. It gives the pro- 
grammer easy access to all aspects of his programming tool. 
LADS, too, is extensible since the internals of the assembler 
are thoroughly mapped, documented, and explained in this 
book. You can customize it at will, building in any features 
that you would find useful. 

After exploring the details of the LADS assembler and us- 
ing LADS to write your own machine language, you may have 
thought of some features or pseudo-ops that you would like to 
add. In this chapter, we’ll show how to make several different 
kinds of modifications. These examples, even if they’re not 
features of use to you, will demonstrate how to extend and 
customize the language. We’ll add some new error traps, cre- 
ate a disassembler, and make a fundamental change to the 
Commodore and Apple LADS—the capability of assembling 
directly from RAM. (The Atari version has this feature built-in 
already.) 

At the end of this chapter we'll cover the details of the 
Atari and Apple LADS source code where they differ from the 
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general LADS source listings (printed at the end of each chap- 
ter). The three versions—Commodore, Atari, and Apple—are 

functionally identical, so the descriptions throughout the book 
apply to each version. However, a few adjustments had to be 

made: input/output variations, a special source code editor for 
the Atari, etc. All these will be discussed below. But first, let’s 
see some examples of how to customize LADS. 


A Naked Mnemonic Error Trap 

The original version of LADS notifies you of most serious er- 
rors: branch out of range, duplicated or undefined labels, na- 
ked labels (labels without arguments), invalid pseudo-ops, no 
starting address, file not found on disk, and various syntax er- 
rors. Other kinds of errors are forgiven by LADS since it can 
interpret what you meant to type in your source code. For 
example, LADS can interpret what you meant when you type 
errors like these: 


100 INY #77; (adding an argument to a one-byte opcode) 
100INY : LDA #15:INY:INX;(extra spaces before or after 
colons) 


The source code in these examples will be correctly 
assembled. Also, if you forget to leave a space between a mne- 
monic and its argument (like: LDA#15), that sort of error will 
be trapped and announced. 

But the original LADS didn’t have a built-in trap for na- 
ked mnemonics. If you wrote: 


100 INC:INY:LDA #15 ; (that “INC” requires an argument) 


the assembler would have crashed. No error message, no 
warning, just a crash. 

Programmers who tested the early versions of LADS 
asked that this error be trapped. That is, if this mistake was 
made during the typing of an ML program’s source code, it 
shouldn't cause the assembler to go insane. The following two 
error-trap modifications have been made a permanent part of 
LADS (and are already in the object code version you typed in 
from this book or received on disk). 

To expose naked mnemonic errors, a special trap was in- 
serted into the Eval subprogram (see Listing 11.1) 


278 


Modifying LADS: Special Notes on Atari and Apple LADS 


After Eval has determined (line 930 of Program 3-1) that 
the mnemonic under evaluation does require an argument (it’s 
not like INY, which uses Implied addressing and never has an 
argument), Eval then goes down to check to see if the argu- 
ment is a label or a number (1460). 

Here’s where we can check to see if the programmer for- 
got to give an argument. If the mnemonic is followed by a co- 
lon or a O (end of logical line), that’s a sure signal that the 
argument has been left out. We can load in the character just 
after the mnemonic (see line 1474, Listing 11.1). If there is a 
space character (#32), all is well and we can continue (1480) 
with our assembly. If not, we jump to L700, the error-report- 
ing routine which will print the error and ring the bell. 


A Trap for Impossible Instructions 

Another programmer who tested LADS was just starting to 
learn machine language. Unfamiliar with some of the 
mnemonics and addressing modes, he once tried to assemble a 
line like this: 


100 LDA 15,Y 


not knowing that Zero Page,Y addressing is a rare addressing 
mode, exclusively reserved for only two mnemonics: LDX and 
STX. But LADS didn’t crash on this. Instead, it assembled an 
LDA 15,X (the correct addressing mode, but fatal to his 
particular program since he was trying to use the Y Register as 
an index). 

The trap was inserted into LADS (Listing 11.2) to make a 
harmless substitution, to assemble an Absolute,Y (at a zero 
page address). Thus, the programmer’s intent is preserved, but 
the illegal addressing mode is replaced. 

By the time Eval reaches this point, it has already filtered 
out many other possible addressing modes. Eval knows that 
the addressing mode is some form of ,X or ,Y and that it’s 
Zero Page. Eval first checks to see if we are dealing with an 
attempted ,Y addressing mode (CMP #839, the Y character). If 
not, we continue with the assembly (5271) by a BNE to line 
5274. 
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But if it is a ,Y, we check the opcode to see if it is LDX, 
the only correct opcode for this addressing mode. If so, we 
continue. 

However, if it is some other mnemonic like LDA or STY, 
this ,Y addressing mode is illegal and we make the adjustment 
to Absolute, Y by a JMP to the area of Eval where that 
addressing mode is accomplished. 

Most illegal addressing will be reported by LADS. Never- 
theless, if there’s a peculiar error that you often make when 
programming and LADS doesn’t alert you, just add an error- 
reporting trap or have the assembler automatically correct the 
problem. 


A final minor modification to the PDISK routine in the 
Pseudo subprogram will permit embedded keywords in 
filenames when using the .D pseudo-op to save object code to 
disk. (The Atari version will not need this modification.) As 
printed in this book, LADS will correctly extend and print a 
filename following the .D pseudo-op which contains a 
keyword. For example, .D OLDSTOP will look correct 
onscreen. However, LADS will send the tokenized keyword to 
the disk as the filename. This will result in unpredictable 
filenames when you use BASIC commands as part of a 
filename. To correct this, remove line 1190 of Program 8-1 and 
adjust the following lines in the Pseudo subprogram. Then re- 
assemble a new version of LADS: 

1230 PD1 LDY #0 

1231 PDLO LDA LABEL,Y:BEQ PDEN:STA FILEN,Y:1NY:JMP 
PDLO; MOVE NAME 

1239 PDEN LDA #44; PUT ,P,W (PROGRAM, WRITE) SIGNAL 
S ONTO FILENAME 
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A Remarkably Simple, Yet Radical, Change 

Since LADS uses symbols instead of numbers, it’s fairly easy 
to change, to make it what you want it to be. What’s more, all 
the programs you write with LADS will also be symbolic and 
easily changed. Let’s make a radical change to LADS and see 
how easy it is to profoundly alter the nature of the assembler. 

As designed, LADS reads source code off a disk program 
file. Let’s make it read its source code from within the comput- 
er’s RAM memory, instead of from disk. This makes two 
things possible: 1. You can change source code, then test it by 
a simple SYS to LADS. 2. Tape drive users can use LADS. 
This version of LADS isn’t functionally different from the nor- 
mal version since long, linked assembly will still be coming 
from disk files. However, it can be a more convenient way to 
write and debug smaller ML programs or subroutines. Every- 
thing works the same when you assemble, except that the first 
(or only) source code program resides in RAM instead of on 
disk. Commodore and Atari RAM-LADS versions can use 
linked files, but the Apple RAM-based version cannot link 
files as it can in the normal Apple LADS. 

You make a radical change whenever you change *= 864 
to *= 5000. You are making a small change at the beginning, 
the root, of your source code. After making this change, the 
entire program is assembled at address 5000 instead of address 
864. The effect—in the usual sense of the term—is quite rad- 
ical. The effort on your part, however, is rather minor. Like- 
wise, we can drastically alter the way that LADS works by 
making a few minor changes to the symbols in LADS. 

Our goal is to make LADS read source code from memory 
instead of from disk files. First, we need to add two new 
pointers to the LADS zero page equates (in the Defs file). We 
create PMEM. It will serve as a dynamic pointer. It will always 
keep track of our current position in memory as we assemble 
source code. 

The intelligence in the disk drive keeps track of where we 
are in a file; whenever we call CHARIN, it increments a 
pointer so that the next CHARIN call will pull a new byte into 
A, the Accumulator. But we’re going to be reading from mem- 
ory so we'll need to update our own dynamic pointer. To cre- 
ate this pointer, just type in a new line in Defs: PMEM = $xx 
(whatever zero page, two-byte space is safe in your computer). 
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The other new pointer we need to define in zero page will 
tell LADS where your BASIC RAM memory starts, where a 
program in BASIC starts. To create this register, just look at a 
map of the zero page of your particular computer and define: 
RAMSTART = $xx (whatever it is). 

Note: These definitions have already been added to the 
Commodore versions of the Defs subprogram in this book. If 
you are creating a RAM-based version of LADS for the Apple, 
add the following two lines to the Apple Defs file: 

135 RAMSTART = $67; POINTER TO START OF RAM 
MEMORY 
157 PMEM = $E2 


The Apple version of the RAM-based LADS requires the same 
changes to the Eval subprogram as Commodore machines re- 
quire. However, no changes are needed in the Pseudo or 
Open1 subprograms. The one difference between Commodore 
and Apple versions in the Getsa subprogram is that Apple re- 
quires #$2A in line 300 instead of the #172. 


A New CHARIN 

Next, we need to change the CHARIN subroutine itself. As 
LADS normally runs, it goes to BASIC’s get-a-byte subroutine 
whenever CHARIN is invoked. This won’t work for memory- 
based source code. BASIC RAM cannot, alas, be OPENed as if 
it were a file. So, since LADS is peppered with references to 
CHARIN, we can just undefine CHARIN in the Defs sub- 
program by putting a semicolon in front of it (Listing 11.3). 

Similarly, CHKIN is scattered throughout LADS to reopen 
file #1, the read-code-from-disk file. We’re not using file #1 in 
this version of LADS, so we add a semicolon to its definition 
too (Listing 11.4). 

But throughout LADS there are references to these two 
subroutines. We need to write a new CHARIN and CHKIN to 
replace the ones we just obliterated. LADS will then have 
somewhere to go, something to do, as it comes upon 
CHARINs or CHKINs throughout the code. We do this by 
adding to the Getsa subprogram (Listing 11.5), 
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Line 410 is just an RTS. It’s a placebo. We never want to 
reopen file #1 (CHKIN’s normal job), so whenever LADS tries 
to do that, we JSR/RTS and nothing happens. Something does 
have to happen with CHARIN, however. CHARIN’s job is to 
fetch the next byte in the source code and give it to the Accu- 
mulator. So this new version of CHARIN (390-400) increments 
PMEM, our new RAM memory pointer, saves Y, loads the 
byte, saves the Status Register, restores Y, restores the Status 
Register, and returns. This effectively imitates the actions of 
the normal disk CHARIN, except it draws upon RAM for 
source code. 

Here you can see one of those rare uses for PHP and PLP. 
There are times when it’s not enough to save the A, Y, and X 
Registers. This is one of those times. INDISK returns to Eval 
only when it finds a colon (end of source instruction), a semi- 
colon (end of instruction, start of comment), or a zero (end of 
BASIC program line, hence end of source instruction). When 
we get a zero when we LDA, the zero flag will be set. But the 
LDY instruction will reset the zero flag. So, to preserve the ef- 
fect of LDA on the zero flag, we PHP to store the flags on the 
stack. Then, after the LDY, we restore the status of the flags, 
using PLP before we return to the Indisk file. This way, what- 
ever effect the LDA had on the flags will be intact. Indisk can 
thus expect to find the zero flag properly set if a particular 
LDA is pulling in the final 0 which signifies the end of a line 
in the BASIC RAM source code. 

After making these substitutions to LADS, we need to re- 
move the two references to Open] (the routine which opens a 
disk file for source code reading) in the Eval subprogram. 
These references are at lines 350 and 4350. We can simply re- 
move them from assembly by putting a semicolon in front of 
them (Listing 11.6). 

Early in Eval, we have a JSR GETSA. This is the GET- 
Start-Address-from-disk routine. We want to change this to: 
JSR MEMSA. GETSA isn’t needed. MEMSA will perform the 
same job, but for memory-based source code instead of disk- 
based source code. MEMSA is found in the Getsa subprogram 
(Listing 11.7). 

The first thing that MEMSA does is to put the start-of- 
BASIC-RAM pointer into PMEM (our dynamic pointer). This 
positions us to the first byte in the source code. Then it pulls 
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off enough bytes to point to the * in the start address defi- 
nition in the source code. This is just what Getsa does for a 
disk file. The rest of MEMSA is identical to Getsa. 


Second Generation LADS 

That's it. These few substitutions and LADS will read a source 
file from RAM memory. You can still use .D NAME to create a 
disk object code file. You can still send the object code dis- 
assembly to a printer with .P. All the other pseudo-ops still 
work fine. A radical change in ten minutes. 

The Getsa subprogram contains a complete, step-by-step 
description of this disk-to-RAM modification of LADS. After 
you've made the changes to the source code (and saved them 
to disk), just load in the normal disk version of LADS, enter 
Defs as the starting file for assembly, and SYS to LADS. It will 
grind out a brand new, RAM-based assembler for you. 

As always, when making a new version of your LADS 
assembler, be sure to direct object code to the disk (use the .D 
pseudo-op) so that you won’t overwrite the working LADS in 
the computer. Also be sure you've given the new version a 
filename that doesn’t already exist on the disk. 
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A Disassembler 


In a perfectly symmetrical universe, with a right hand for ev- 
ery left, and a north pole for every south, you could transform 
an assembler into a disassembler by just making it run 
backwards, 

Unfortunately, ours is not such a universe. Since LADS 
turns source code into object code, it would seem possible to 
tinker with it and adjust it a bit and make it turn object code 
back into source code, to disassemble. Not so. We have to link 
two new files onto LADS to add a disassembler function: Dis 
and Dtables. 


Personal Programming Style 

Dis is an example of how a fairly complex ML program can be 
constructed using LADS. The relatively few comments reflect 
my personal style of programming. I find many of the variable 
names are meaningful enough to make the code under- 
standable, especially since the purpose of the lookup tables in 
Dtables is fairly easy to see. 

The relatively few comments in the compressed code in 
Dis also allow you to look at more instructions at the same 
time on the screen. This can help during debugging since you 
might be able to more quickly locate a fault in the overall logic 
of a program. Nevertheless, many programmers find such 
dense code hard to read, hard to debug, and generally 
inefficient. 

Obviously, you should write the kind of source code that 
works for you. The degree of compression is a matter of 
programming style and personal preference. Some program- 
ming teachers insist on heavy commenting and airy, de- 
compressed coding. Perhaps this emphasis is appropriate for 
students who are just starting out with computing for the 
same reasons that penmanship is stressed when students are 
just starting to learn how to write. But you needn't feel that 
there is only one programming style. There are many paths, 
many styles. 


How to Use the Disassembler 

For convenience, Dis is set to start at 17000. That’s an easy 
number to remember when you want to SYS, CALL, or USR 
to see a disassembly. The version at the end of this chapter is 
fully functional, but you might want to make modifications. As 
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printed, it will ask for the start address location in RAM of the 
object code you want to see listed. Notice that the object code 
must be residing in RAM to be disassembled. (It would be 
simple, though, to make a disassembler which operated on 
disk or tape code.) Then it will disassemble until you hit the 
STOP or BREAK key. You might want to adjust it— you could 
have it assemble 20 instructions and then halt until a key was 
pressed. Or you might want to make it print disassemblies to 
the printer. Or it could ask for both starting and ending ad- 
dresses before it begins. To have the disassembler you prefer, 
just modify the code. 

The disassembler is included in this book because it dem- 
onstrates compressed LADS source code and it also shows 
how LADS itself can be expanded while borrowing from exist- 
ing LADS subroutines like STOPKEY and PRNTNUM. 

The source code in other parts of the book is somewhat 
artificial: Each line contains only one mnemonic followed by a 
description, a comment about the purpose of that line. Nor- 
mally, such extensive commentary will not be necessary, and 
many lines can contain multiple statements separated by co- 
lons. Dis is an example of LADS source code as many pro- 
grammers will probably write it. 

To add the disassembler to LADS, change the END DEFS 
at the end of the Tables subprogram in LADS to .FILE DIS. 
This will cause the file for Dis to be assembled along with 
LADS. Dis will link to Dtables, which ends with .END DEFS 
to permit the second pass through the combined LADS/Dis 
code. 


Keyboard Input 

Let’s briefly outline the structure and functions of the 
disassembler. It starts off by printing its prompt message 
called DISMESS (30). The actual message is located in line 
710. PRNTMESS is a subroutine within LADS which prints 
any message pointed to by the variable TEMP. 

Then $3F, the ? symbol, is printed and STARTDIS (50) 
sets the hexflag up so that number printouts will be in hexa- 
decimal. If you prefer decimal, LDA #0 and store it in 
HXFLAG. 

Now there’s an input loop to let the user input a decimal 
start address, character by character. If a carriage return is de- 
tected (90), we leave the loop to process the number. The 
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number's characters are stored in the LABEL buffer and are 
also printed to the screen as they are entered (100). 

When we finish getting the input, the LADS Valdec rou- 
tine changes the ASCII numbers into a two-byte integer in the 
variable RESULT. We pick up the two-byte number and store 
it in the variable SA which will be printed to the screen as the 
address of each disassembled mnemonic. 

Line 150 is a bit obscure. It wasn’t originally written this 
way, but testing revealed that the JSR GB in line 190 would 
increment the start address right off the bat (before anything 
was disassembled or printed). At the same time, putting that 
increment lower in the main loop was inconvenient. So the 
easiest thing was to simply accept a start address from the 
user, then decrement it. The disassembler will start off with a 
start address that is one lower than the user intends, but that 
early increment will fix things up. Thus, the variable PMEM 
will hold a number which is one lower than the variable SA. 
Both these variables are keeping track of where in memory we 
are currently disassembling. But we’ve got to distinguish in 
this way between SA which prints to the screen and PMEM 
which tells the computer the current location. 


Battling Insects 

This is a good place to observe that programming is never a 
smooth trip from the original concept to the final product. No 
programmer is so well-prepared or knowledgeable that he or 
she simply sits down and calmly creates a workable program. 
If you find yourself scratching your head, circling around a 
bug and not trapping it, spending hours or days trying to see 
what could possibly be wrong—you’re in good company. I’ve 
worked with some very experienced, very talented people and 
have yet to see someone fashion a program without snags. 
And the more significant and sophisticated the program, the 
more snags it has. 

All that can be done, when you hit a snag, is to single- 
step through the offending area of your program, or set BRK 
traps, or puzzle over the source code, or try making some ten- 
tative reassemblies (not knowing for sure if your changes will 
have any salutary effect), or sometimes even toss out an entire 
subroutine and start over. For example, I wrote the rough 
draft, the first draft of this disassembler, in about two hours. I 
didn’t have the final version working until I’d spent two full 


290 


Modifying LADS: Special Notes on Atari and Apple LADS 


days battling bugs. Some were easy to fix, some were mon- 
sters. It took about ten minutes to cure that problem with the 
start address being one too high. But it took hours to locate an 
error in the disassembler tables, Dtables. 

After the user has input the start address, TEMP is made 
to point to the LABEL buffer and VALDEC is invoked. 
VALDEC leaves the result of an ASCII-to-integer conversion in 
the RESULT variable. That number is stored in PMEM and SA 
(140-150). One final adjustment restores SA to the original 
number input by the user. SA will only print addresses 
onscreen; PMEM is the real pointer to the current address dur- 
ing disassembly. The decrementing of PMEM, made necessary 
by that JSR GB early in the main loop, is not necessary for SA. 
(SA is not incremented by the GB subroutine.) 


GETBYTE: The Main Loop 

Now we arrive at the main loop. GETBYTE (190) first tests to 
see if the user wants to stop disassembly via the STOPKEY 
subroutine (in the Eval subprogram within LADS). Then the 
GB subroutine (690) raises the memory pointer PMEM and 
fetches a byte from memory. This byte is saved in the FILEN 
buffer and will act as an index, a pointer to the various tables 
in the Dtables subprogram. For purposes of illustration, let’s 
assume that the byte we picked up held the number 1. One is 
the opcode for ORA (Indirect,X). We can trace through the 
main loop of Dis and see what happens when Dis picks up a 
1. 

The 1 is transferred to the Y Register (200), and we then 
load whatever value is in MTABLE+1 since we LDA 
MTABLE,Y and Y holds a 1. This turns out to be the number 
2, signifying that we’ve come upon the second opcode (if the 
opcodes are arranged in ascending order). Notice that BNE 
will make us skip over the next couple of lines. Anytime we 
pull a 0 out of MTABLE it means that there is no valid opcode 
for that number, and we just print the address, the number, 
and a question mark ($3F). Then we raise the printout address 
pointer with INCSA and return to fetch the next byte 
(210-220). 
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However, in our example, we did find something other 
than a 0 in MTABLE. We've got a valid opcode. Now we have 
to find out its addressing mode and print a one- or two-byte 
argument, depending on that addressing mode. Is it Immediate 
addressing like LDA #15 (one-byte argument) or Absolute 
addressing like LDA 1500 (two-byte argument)? 

Having found a valid opcode, we now extract the mne- 
monic from WORDTABLE and print it out (240-330). First we 
multiply our number from MTABLE by 3 since each mne- 
monic has three letters. The number we found in MTABLE 
was a 2, so we have a 6 after the multiplication. That means 
that our mnemonic will start in the sixth position within 
WORDTABLE. We add 6 to the address of WORDTABLE 
(280-290) and leave the variable PARRAY pointing at the first 
letter O in WORDTABLE. 

Now the SA (current disassembly address) is printed 
onscreen with PRNTSA and a space is printed (300). We then 
print ORA onscreen, one letter at a time (310-330), and print 
another space. Now we're ready to figure out the addressing 
mode. 


Addressing Type 
We had previously saved our original byte (the number 1 in 
our example) in FILEN (190). We now retrieve it, pull out the 
position value from MTABLE (getting the number 2), and load 
in the addressing mode type from TYPETABLE (see lines 
360-410 in the Dtables subroutine listing at the end of this 
chapter). It turns out that the number 2 we're using in our 
example will pull out a number 4 from TYPETABLE. The 
number 4 identifies this as an Indirect X addressing mode. 
Between lines 380 and 410 we have a simple decision 
structure, much like BASIC’s ON-GOTO structure. In our 
example, the CMP #4 in line 390 will now send us to a rou- 
tine called DINDX which handles Indirect X addressing. 
DINDX (460) takes advantage of several routines which 
print symbols to the screen for us: LEPAR prints a left paren- 
thesis; DOONE fetches and prints the next number in RAM 
memory (the argument for the current mnemonic); COMX 
prints a comma and an X; and RIPAR finishes things off with 
a right parenthesis. Now we have something like this 
onscreen: 
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0360 ORA (12,X) 


so our disassembly of this particular instruction is complete. 
We JMP to ALLDONE (600) and print a carriage return and 
start the main loop over again to disassemble the next 
mnemonic. 

Other mnemonics and other addressing modes follow a 
similar path through Dis as they are looked up in Dtables and 
then printed out. 

By the way, if you look at lines 650-680 on page 296, 
you'll see a peculiar #’’ pseudo-op. It allows you to specify a 
character instead of a number for immediate addressing. In 
line 650 we need to print a comma to the screen. You could 
LDA #44 (the ASCII code for a comma) and JSR PRINT. 

But if you don’t want to look up the ASCII code, LADS 
will do it for you. Just use a quote after the # symbol: LDA 
#°’, (followed by the character you’re after; in this case, the 
comma). The correct value for the character will be inserted 
into your object code. You can see that we used this pseudo- 
op to load the value for X, Y, ), and ( symbols as well, in lines 
650-680. 
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Notes on the Structure of Atari LADS 
The Atari and Commodore machines have one thing in com- 
mon—a 6502 microprocessor. The Atari 6502 runs at 1.79 
megahertz, making it somewhat faster than the Commodore 
machines. However, the non-6502 hardware—input/output, 
graphics, and sound—is entirely different. Although many 
Atari enthusiasts argue that it is the most powerful available 
on any 6502-based microcomputer, the operating system of 
the Atari does not perform basic tasks like input/output in the 
Same manner as Commodore machines. An understanding of 
these differences is essential to fully understand the Atari 
LADS source code. 

The common tasks machine language programs need to 
perform with input/output are: open a file, read a character or 
block of characters from the file, write a character or block of 
characters to a file, and close the file. With the Commodore 
operating system (often called the Kernal), there are separate 
routines for each task. You approach each task by adjusting 
the Accumulator, X, and Y Registers as necessary, as well as 
storing any required information into special memory locations 
(usually in zero page). See the discussion of OPEN1 in Chap- 
ter 5 for details. For example, the Commodore OPEN must 
know where to find the filename, the length of the filename, 
parameters like read or write, and the device number. 

On the Atari, there is just one entry point—$E456, called 
CIO, for all these tasks. Instead of separate entry points, CIO 
checks a memory location for the command, a number 
representing the action to take, such as OPEN, CLOSE, PUT, 
or GET. Other memory locations hold the starting address of a 
filename or buffer, and the length of the filename or buffer. 
Extra locations hold specialized information. Each block of I/O 
information is called an IOCB, for Input/Output Control 
Block, There are eight of these IOCBs, numbered 0 to 7. IOCB 
0 is reserved for the screen editor, and 7 is usually reserved 
for language I/O, such as LPRINT in BASIC, or SAVE in the 
LADS editor. 

Although much of LADS is concerned with internal data 
base-type manipulations, such as looking up a label or convert- 
ing a mnemonic, there is also a good amount of Commodore- 
style input/output. Routines like OPEN, CLRCHN, CHKIN, 
and PRINT are actual ROM entry points on Commodore 
computers. To avoid complex changes in the source code, 
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Atari LADS has a special file called Kernal (see program list- 
ings below), which transparently supports all these routines, 
making the conversion between the Atari’s I/O system and 
the Commodore’s transparent. Explanations of Commodore 
I/O given in Chapter 5, then, are valid as well for the Atari 
LADS system. In other words, when the original Commodore 
version of LADS was translated to the Atari, the Kernal sub- 
program was added to mimic the operations of the Com- 
modore operating system I/O. This emulation allows the 
descriptions of LADS to remain essentially identical for non- 
Commodore machines. 


Atari Memory Layout 

Memory maps for Commodore computers are relatively sim- 
ple. Zero page is used by the system, page 1 for the stack, 
page 2 for operating system storage, and page 3 for the cas- 
sette buffer(s). On the Commodore PET, page 4 (starting at ad- 
dress 1024) on up to location 32768 is free RAM. 32768 is the 
start of screen memory on the PET, and never moves. On the 
64, the screen occupies page 4 up to 2047 ($07FF). Free RAM 
starts at 2048 ($0800) all the way up to 40959 ($9FFF). BASIC 
in ROM and the operating system start at 40960 ($A000). Al- 
though there is hidden memory beneath the ROMs on both 
the Atari XL series and the Commodore 64, LADS does not 
use it. 

The Atari memory layout is less fixed. Zero page from 
locations 0 to 127 completely used by the operating system. 
An applications program like BASIC can use almost all the 
memory from 128 to 255. Since Atari LADS operates outside 
the BASIC environment, it is free to use this zero page mem- 
ory upwards from location $80. 

Unlike the PET and 64, Atari machines have no set 
amount of memory. Atari 400/800 owners have the option of 
expanding to 48K, without using bank selection or other tricks. 
Without DOS, free memory starts at $0700 (page 6 is re- 
served). With DOS, free RAM starts at about $2000. The 
screen memory, a little over 1K in length, is stored at the top 
of memory, and is not fixed, due to memory expansion. Many 
Atari machine language programs store themselves at the bot- 
tom of memory, then use memory above themselves to store 
text or other information. But because LADS stores its labels 
below itself, the Atari version must be located at the top of 
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memory. Since the top of memory with a cartridge (or with 
40K of RAM) is $9FFF, and since Atari LADS is about 7K long, 
$8000 seems to be a good place. If you have a 48K Atari, you 
may want to reassemble LADS at $A000. The choice of $8000 
does exclude Atari owners with less than 40K, but if you have 
access to a 40K machine, you could reassemble LADS at 8K 
below the top of memory. 

Let’s look at the major differences between the Atari 
LADS and Commodore LADS source code. We won’t get into 
specifics; for that you can refer to the source code itself. The 
translation of Atari LADS involved two goals: the creation of a 
powerful assembly development system without making major 
changes to most of the Commodore LADS source code. Some 
subprograms needed no changes, others did. Three new sub- 
programs are required by the Atari version: Kernal, System, 
and Edit. 

Here’s how all the subprograms in the Atari LADS are 
linked: 

Defs ~ Eval > Equate - Array > Open1 > Findmn > Getsa > 
Valdec + Indisk > Math > Printops > Pseudo ~ Kernal - System 
~ Edit + Tables 

Defs. Here we set the origin to $8000. Since we are 
simulating Commodore I/O, we have to create some label 
variables such as FNAMELEN (filename length). These are 
used by the Kernal routines. Other LADS variables like 
MEMTOP and PMEM are also given zero page definitions for 
the sake of speed and for indirect addressing. The BABUF, 
used for holding comments and holding a line in the editor, is 
defined as $0500. On Commodore machines it is $0200, the 
address of the BASIC input buffer. 

Eval. The first difference between the Commodore and 
Atari versions of Eval is that instead of reading the filename 
off the screen, Atari LADS gets the filename from the com- 
mand line, passed by the editor. The editor has previously set 
RAMFLAG to 1 if there is no filename. This is a default to 
RAM-based assembly (your source code is already in memory 
and need not be read from disk). If RAMFLAG is 0, LADS 
must assemble from disk. If the RAMFLAG is nonzero, we 
skip over putting the filename into FILEN, and jump past the 
JSR OPEN1 in Eval (since there is nothing to open). At the top 
of Eval, the left margin is set to zero. 

Since LADS has complete control of the Atari, no memory 
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needs to be protected from anything, so the top-of-memory 
pointer need not be lowered. 

In FINI, the RAMFLAG is also checked so that JSR 
OPEN1 is skipped. In FIN, which FINI falls to after the end of 
the second pass, we send an extra byte out to the object file, if 
.D was used. 

Equate, Array, and Findmn. There was no need to 
change any of these modules, since they contain no system- 
specific coding. 

Openi. Many changes have also been made to Open1, al- 
though a lot of the source code is similar. FDEV and 
FSECOND hold the device number and secondary address in 
Commodore LADS. Here they are used to hold the access type 
(4 for read, 8 for write) and the auxiliary byte (which is zero 
here). Open1 checks the RAMFLAG to see whether it should 
load the file after it’s been opened, in case memory assembly 
has been elected. The actual load is done by using part of the 
editor’s load routine. Because of RAMFLAG, we don’t need a 
separate LOAD 1 routine. 

If the file can’t be opened, we call the editor’s error mes- 
sage routine, and then return to the editor. The same error 
handling is performed for all the OPENs. 

OPEN2 writes out the binary file header, made up of two 
255’s, followed by the starting and ending addresses in low 
byte/high byte format. The origin (the starting address for the 
object code) is saved in the variable TA. The object code’s 
ending address is known, and stored in LLSA. LLSA is ac- 
tually one higher than the ending address, which is why we 
write an extra zero to the end of the file in Eval. This prevents 
an ERROR 136 when loading the file from DOS. 

OPEN4 just opens a file for write to the printer. The 
printer’s filename is P:, which is given in the .,BYTE statement 
as 80 58. 

Getsa. Getsa is very similar to the Commodore version. 
There is no MEMSA—Getsa initializes PMEM to point to the 
start of the editor’s text buffer (TEXTBAS), even if PMEM is 
not used. Since CHARIN is smart, checking RAMFLAG to de- 
cide whether to assemble from memory or from disk, no more 
changes need to be made. 

Valdec. Valdec would have been unchanged from the 
Commodore version, since there is no machine-specific code. 
However, the editor makes use of Valdec to convert ASCII line 
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numbers into integers. The ASCII line number does not end 
with a zero, though. The first part of Valdec finds the length 
of the number by checking for a zero. It has been changed in 
the Atari version to exit on any nonnumeric digit (one with an 
ASCII value less than 48 or greater than/equal to 58). The 
change does not affect any other use of Valdec. 

Indisk. It is in Indisk where we see many modifications to 
the Commodore version. Since the editor does not tokenize 
anything, KEYWORD and KEYWAD are not needed, and ref- 
erences to them in this source code, as well as the KEYWORD 
and KEYWAD routines themselves, have been deleted. Again, 
since nothing is tokenized, checks for +, *, <, >, etc., look for 
the ASCII values instead of the tokenized ones. Since line 
numbers are stored as a string of digits instead of a two-byte 
integer, we must call LINENUMBER in the SYSTEM module 
in order to set LINEN. ENDPRO, instead of looking for three 
zeros to signify the end of a program, must check the disk sta- 
tus variable for end of file. End of file returns 136 after the last 
character has been read, and $03 if you try to read past the 
end of file, so we check for both to be safe. We check the sta- 
tus for file #1 (the input file) directly ($0353), instead of ST, 
since ST may have been changed by another I/O operation. 
Nonetheless, large parts of Indisk are unchanged from the 
Commodore version. 

Printops. Because of the Kernal simulator, even though 
Printops has plenty of Commodore I/O calls, few changes 
were needed to make Printops work on the Atari. 

Pseudo. There are some minor changes here. KEYWORD 
does not need to be used by .END or .FILE. FILE finds the end 
of the pseudo-op by looking for a space delimiter. The 
filename is then copied into FILEN, and the file opened. If the 
current operation is a RAM-based assembly, Open] takes care 
of loading in the next file. PEND, which supports .END, first 
calls FILE to open the file, then copies SA, which holds the 
current address, into LLSA for use with OPEN2. 

Speaking of OPEN2, some code was deleted from PDISK 
and instead implemented in OPEN2. There were no more 
changes after PDISK to the Pseudo module. In Commodore 
LADS, Pseudo links to Tables, the last module. Here we link 
to Kernal, inserting Kernal, System, and Edit into the chain. 

Kernal. This is the most important module in the Atari 
translation. It implements all the Commodore I/O functions 
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by simulating CHKIN and CHKOUT, and referencing the 
appropriate IOCB according to FNUM. The CIO equates are 
first defined: ICCOM, the command byte; ICBADR, which 
holds the address of the filename or buffer; ICBLEN, which 
holds the length of the filename or buffer; ICAUX1 and 
ICAUX2, which need to be set to zero; and CIO itself, that sin- 
gle entry point for all input/output. 

A simple routine is X16, which multiplies the Accu- 
mulator times 16 and stores it in the X Register. X will be an 
offset from the first IOCB. Since each IOCB is 16 bytes long, 
we can use Indexed addressing to change the appropriate 
IOCB with a statement like STA ICCOM,X. 

OPEN is the basic open-file routine. It uses X16 to get the 
IOCB offset, then stores the filename pointer and filename 
length into ICBADR and ICBLEN. The command byte for 
open ($03) is stored in ICCOM, then CIO is called. CIO’s error 
status, which is returned in the Y Register, is saved in ST. 

CHKIN changes the default input IOCB, which is used in 
CHARIN. CHKOUT changes the default output IOCB, which 
is checked for in PRINT. CLOSE just stores the close com- 
mand (12) into ICCOM and jumps to CALLCIO, part of 
OPEN. CLRCHN sets the default INFILE and OUTFILE, as 
well as FNUM and ST to zero, which makes CHARIN and 
PRINT use IOCB #0, opened to the screen editor. 

PRINT is expected to print the character currently in the 
Accumulator. It first changes any 13’s it sees, which are Com- 
modore carriage returns, into 155’s (Atari carriage returns). 
Another entry point, OBJPRINT, does not transform 13’s. This 
is called when object bytes need to be sent to disk, where you 
don’t want 13’s changing into 155’s. Depending on OUTFILE, 
PRINT will automatically use the appropriate IOCB (0 for 
screen, 2 for object output, 4 for printer output). We then set 
the buffer length to zero, which tells CIO to expect to find the 
character to print in the Accumulator. The print text command 
is used, then we call CIO and restore the X and Y Registers, 
which were saved when PRINT was entered. This prevents 
any interference with LADS. 

CHRIN is also a busy routine. It first checks RAMFLAG 
to see whether it should get a byte from an I/O device or 
from the editor’s text memory. If it gets a byte from memory, it 
must check to see if it has gone past the last byte. If so, we 
jump straight to FINI in Eval. Otherwise, CHRIN gets a byte 
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from disk or the keyboard. It uses INFILE to decide which 
IOCB to use, then sets the buffer length to zero. This way it 
requests a single byte from CIO. If a 155 is returned, it is 
changed into a zero, which is what LADS looks for as end of 
line. 

There is no “check for BREAK key” routine in Atari ROM, 
so STOPKEY checks the BREAK key flag, which is set to zero 
if the BREAK key is pressed. If BREAK was pressed, we exe- 
cute TOBASIC, which jumps back to the editor. 

CLALL is not used by LADS, but is used by the editor to 
close all files in case of an error. It works like the Commodore 
CLALL routine, and restores the default I/O (input from key- 
board, output to screen) by jumping to CLRCHN. 

System. A few more routines are provided here which are 
not directly supported by the operating system. OUTNUM 
prints the ASCII number given to it in the X Register, which 
holds the low byte of the number to print, and the Accu- 
mulator holding the high byte. We then call $D9AA, which 
converts the integer number in locations $D4 and $D5 into 
floating point, and then call $D8E6, which converts the float- 
ing point into a printable ASCII sequence of digits starting at 
$0580. The routine at $D8E6 sets bit 7 in the last digit of the 
ASCII numeral string. We print the string, checking and mask- 
ing off bit 7. LINENUMBER reads the ASCII line number from 
source code and converts it to an integer, using VALDEC. The 
result is saved in LINEN. 

Tables. The major changes here are that the error mes- 
sages must be typed in inverse video. One extra variable is de- 
fined: LLSA to hold the ending address. 


Program 11-3. Kernal 
19g ICCOM = $9342 


114 ICBADR = $9344 
120 ICBLEN = #8348 
134 ICAUX1 = $£934A 
144 ICAUX2 = $H34RB 
15@ CCLOSE = 1i2 


166 CIO = E456 
178 X16 ASL 

188 ASL 

199 ASL 

2084 ASL 

2198 TAX 

224 RTS 
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238 ;Opens a file OPEN #FNUM,FDEV,FSECOND, (F 
NAMEPTR) 

24@ OPEN LDA FNUM 

250 JSR X16 

260 LDA FNAMEPTR 

278 STA ICBADR,X 

2849 LDA FNAMEPTR#H1 

290 STA ICBADR+1, X 

30@ LDA FNAMELEN 

3198 STA ICBLEN,X 

328 LDA #4 

330 STA ICBLEN+1,X 

349 LDA FDEV 

35@ STA ICAUX1.x 

368 LDA FSECOND 

378 STA ICAUX2, x 

38% LDA #405 

396 STA ICCOM, xX 

4@@ CALLCIO JSR CIO 

419 STY 5ST 


424 RTS 

43@ CHEIN STX INFILE 
44a RTS 

430 CHEOUT STX OQUTFILE 
469 RTS 


478 CLRCHN LDX #4 
48a STX INFILE 
49@ STX OUTFILE 
uae STX FNUM 

vai STX ST 

314 RTS 

324 CLOSE JSR X16 
338 LDA #12 

344 STA ICCOM, X 
352g JMP CALLCIO 
368 PRINT CMP #153 
378 BNE OBJPRINT 
38Ba@ LDA #155 

398 OBJPRINTE STA KASAVE 
648 STY KYSAVE. 
61@ STX KXSAVE 
6209 LDA OUTFILE 
638 JSR X16 

644 LDA #4 

6350 STA ICBLEN, X 
6698 STA ICHLEN+tTI,X 
678 LDA #11 

688 STA ICCOM. X 
690 LDA KASAVE 
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7Oa 
718 
720 
738 
74a 
7Sa 
76a 
77B 
78a 
7Od 


Baa 
8164 
828 
B38 
B42 
85a 
86a 
88a 
BIG 
FOaA 
7190 
920 
938 
749 
93a 
96a 
974 
984 
79a 
1da@ 
1418 
1igi2?a 
1d3a 
1A4ea 
1ase 
1464 
14768 
1988 
1898 
1149 
1144 
1154 
1164 
117968 
1188 
1198 
1280 
1214 


JSR CALLCIO 
LDY KYSAVE 
LDX KXSAVE 
LDA KASAVE 
RTS 


. 
4 


CHARIN STY EYSAVE 

STX KXSAVE 
LDA RAMFLAG 

BEQ CHRIN; If RAMFLAG=8 (False) then get 
byte from device 

sElse get byte from memory 
LDY #@:LDA (PMEM).Y¥:PHA 

INC PMEM:BNE NINCFP1:INC PMEMN+1 
NINCP1 CLC:LDA PMEN:SBC TEXEND:STA KTEMP 
LDA PMEM+1 
SBC TEXEND+1 
GRA KTEMF: BCC NOTEOF: BEQ NOTEOF 
JMF FINI 
NOTEOF LDA #@:STA ST:STA $#353 
PLA: IMP CHRXIT 
CHRIN LDA INFILE 
JSR X16 
LDA #4 
STA ICHLEN, X 
STA ICRLEN+t+1, xX 
LDA #7 
STA ICCOM. X 
JSR CALLCIO 
CHRXIT LDY KYSAVE 

LDX EKXSAVE 

CMP #155 

BNE ZICR 

LDA #4 

ZICR RTS 

STOPKEY PHA 

LDA $ii 

REQ TOBASIC 

PLA 

RTS 

TOBASIC JMP EDIT 

CLALL LDX #7 

CLLOOP STX KTEMP:TXA: JSR CLOSE 
LDX KTEMP:DEX:BNE CLLOOP ~“ 
JMP CLRCHN 

KASAVE .BYTE @ 

KYSAVE .BYTE @ 

KEXSAVE .BYTE @ 
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1228 KTEMP .HYTE @ 
1238 .FILE D:SYSTEM.SRC 


Program 11-4. System 


179 OUTNUM STX #D4 
1989 STA #D5 

194 JSR #D9AA 

20@ JSR #DSES6 

23@ LDY #6 

24@ ONUMLOOP STY OYSAVE 
250 LDA (#F3).Y 

268 PHA 

278 AND #47F 

29a JSR PRINT 

290 PLA 

398 BMI ONUMEXIT 

314 LDY OYSAVE 

32@ INY 

339 BNE ONUMLOOP 

346 ONUMEXIT RTS 

346 OYSAVE .BYTE @ 
39@ LINENUMBER LDY #4 
496 LINELOGP JSR CHARIN 
410 CMP #32 

420 BEQ OUTLINE 

439 STA BABUF,Y 

44g INY 

456 IMP LINELOOP 

449 OUTLINE LDA #4 
470 STA BABUF,Y 

480 LDA #<BABUF 

494 STA TEMP 

S34 LDA #>BABUF 

519 STA TEMP+1 

520 JSR VALDEC 

53@ LDA RESULT 

549 STA LINEN 

550 LDA RESULT+1 

54@ STA LINEN+1 

578 LDY #@ 

589 RTS 

590 .FILE D:EDIT.SRC 


The Atari LADS Editor 


The Atari editor is a whole minilanguage system itself. The 
source code for this subprogram is well commented and 
should be understandable as it stands. Since it is not a part of 
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LADS proper, we'll limit ourselves here to an overview of the 
major routines. 

UMOVE and DMOVE are high-speed memory move 
routines used to adjust the source code when lines are deleted, 
added, and so forth. UMOVE can move one range of memory 
to another, provided that the block to be moved is higher in 
memory. The range of bytes can overlap so UMOVE can be 
used as a delete routine. DMOVE moves memory downward, 
and is used for inserting. If the memory ranges do not overlap, 
either one can be used. FROML and FROMH hold the start of 
the block to be moved. DESTL and DESTH are where the 
block is moved to. LLEN and HLEN are set to hold the length 
of the block to be moved. These routines use self-modifying 
code for speed. 

EDIT is the entry point for LADS when it is first run, as 
well as the return point from the LADS assembler. It cleans up 
the stack, resets the left margin to 2, then stores the addresses 
of all the editor commands into COMVECT, which is a lookup 
table used by COMMAND. The BRK interrupt is initialized to 
point to a special breakpoint entry to the editor. We then 
check to see if this is the first time EDIT has been entered. If 
so, we need to NEW out any garbage in memory. The NEW 
routine sets the end-of-text pointer to point to the beginning 
of text. No memory is actually cleared. 

PROMPT is the entry point for a new line. It prints 
“LADS Ready”, then falls through to ENTER, which is the en- 
try point for a new line without printing a prompt. CHARIN 
from Kernal gets a byte, which is then processed to remove 
lowercase, etc. The line is stored in the BABUF, starting at 
$0500. When a carriage return is detected, an Atari carriage re- 
turn is added to the end of the line in BABUF, and the length 
of the line is saved in INLEN. If the length is zero, we go back 
for another line. The first character of the line is checked. If it 
is a numeric digit, there must be a line number. If there is no 
line number, then the line must be a command. 

If it is a line number, we call GETLNUM to get the inte- 
ger value of the line number. GETLNUM also calls FINDLINE 
to see if that line already exists. If it does, the line is deleted. 
Then we check to see if there is anything else besides just a 
line number. If not, we don’t insert the line into the source 
code. Since the line was already deleted, this has the desired 
effect. We then go back for another line. 
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COMMAND searches through a table of commands, 
matching the line the user typed in against the table. If the 
command is not found, a syntax error message is displayed, 
and we return to PROMPT. If the command is found, we save 
the position of whatever's after the command (the argument) 
in ARGPOS. The command number (COMNUM) is used as an 
index into COMVECT, which holds the addresses of all com- 
mands. We get the address, subtract one from it, then put it on 
the stack. A RTS then ends up pulling this address off and 
jumping to it. It’s like ON-GOTO in BASIC. 

MLIST lists the entire text buffer, from TEXTBAS to 
TEXEND. A second entry point in MLIST, INLIST, is called by 
the LIST routine to list a part of a program. We also check 
here for the BREAK key. MLIST is used by SAVE to list the 
program to disk, cassette, or the printer. 

DOS is spectacularly simple. It just jumps through the 
DOS vector, location $0A. 

FINDLINE is crucial to the editor. It searches through the 
source code, trying to match the line number given to it 
(LNUM) against all the ASCII line numbers in the program. It 
uses Valdec to convert the ASCII line number into an integer. 
Because of all the ASCII to integer conversions, FINDLINE 
can be slow on long programs. It returns with BEGPTR point- 
ing to the beginning of the line found, and ENDPTR pointing 
to the end of the line. If there is no program in memory, it re- 
turns with BEGPTR and ENDPTR pointing to the start of text. 
If the line is not found, BEGPTR and ENDPTR point to the 
next line greater than the line number searched for. If there is 
no such line, they point to the end of text. The size of the line 
found is also calculated for the benefit of the delete routine. 

DELETE calls FINDLINE, then calls UMOVE to move 
memory from the end of the line on top of the beginning of 
the line. TEXEND is then changed to reflect a shorter pro- 
gram. Many checks have to be made to prevent a crash under 
conditions such as no program in memory. INSERT is similar 
to DELETE. It calls DMOVE to insert a gap at the position the 
line was found. 

ERRPRINT is used to display an error message, To be 
safe, it also closes all files. GETNUM gets and converts an 
ASCII line number to an integer, using the system ASCII-to- 
floating-point and floating-point-to-integer routines. The 
routines return a pointer to the end of the number. This 
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pointer is always kept track of so we can check for new com- 
mand arguments. GETLNUM uses this routine, then calls 
FINDLINE. 

LIST calls GLIST, which is also used by SAVE. GLIST 
finds out the line number range you want to list. If there is no 
line number range given, it goes to MLIST to list the entire 
program. Otherwise, it has to check for just one line given, or 
a range of lines. It’s complicated, but it works. 

OPENFILE is used by SAVE, LOAD, and MERGE. It looks 
at the argument of the command to get the filename, then 
calls OPEN within Kernal. If there is an error, we jump to 
PROMPT. SAVE calls OPENFILE with an 8 for output. It then 
sets the output file and calls GLIST, which sends the listing 
out to the current output file. After GLIST returns, the file is 
closed. 

MERGE just sets the input file to the device and jumps to 
PROMPT. PROMPT keeps requesting input and storing lines 
until it gets an error. It then closes the file and restores default 
I/O. 


Adding Your Own Editor Commands 

The LADS command checks to see if there is a filename, then 
sets the RAMFLAG accordingly and jumps into EVAL. The 
SYS command calls GETNUM to get the decimal argument, 
then stores the address right after a JSR, to which it then falls 
through, creating a self-modifying indirect JSR. If the routine 
being called ends in a RTS, control will be returned to 
PROMPT. You can use SYS to add new editor commands. Just 
check location $D0, which will point to a position with 
BABUF ($0500) after the SYS number. You can use $D0 to 
check for extra arguments within BABUF. 

LOAD calls OPENFILE to open the load file for read. It 
has a second entry point (AFTEROPEN) if the file has already 
opened. For maximum speed, the program is loaded by calling 
the CIO get-record routine, which loads in the entire file di- 
rectly at TEXTBAS, the start of text. Beware, though, that no 
conversions are done on any of the text, and no checks are 
made for a legal source file. You could even load and list word 
processing files. AFTEROPEN is called by Open! if RAM 
needs to be reloaded during a memory assembly. 

The last routine in the editor handles a BRK instruction 
entry encountered. It prints a message, uses OUTNUM to dis- 
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play the address where the BRK was found, clears the inter- 
rupt flag, cleans the stack, then jumps to the Edit entry point. 
Edit then links to Tables. 


Program 11-5. Editor 


1@8 sLine Editor for LADS 
114 ;:Charies Brannon 1984 
Giza ; 

giia PTR = $Ce8 

2140 TEXTBAS = $2008 

8158 sMove routines 

Hiésa ; 

aiv7ea IMP EDIT 
8188 FROML .BYTE 
Sigg FROMH BYTE 
g7a0a0 DESTL ~RYTE 
@21@ DESTH .-BYTE 
@227?0 LLEN .~BYTE @ 
@238 HLEN .BYTE @ 
@240 ENDPOS .BYTE &@ 
@250 INLEN .BYTE @ 
8260 LNUM .BYTE @ @ 
@2708 TEXTPTR .BYTE @ 
#2280 COMNUM .BYTE &@ 
@29@ TEXEND .BYTE @ @ 
GS3a0 LEN .BYTE @ 

gSigd YSAVE .BYTE @ 
@32G BEGPTR .BYTE @ @ 
@S30 ENDPTR .BYTE & @ 
@340@ FOUNDFLAG .BYTE &@ 
@S50 LINESIZE -HYTE &@ 
@S60 SAVEND .BYTE @ @ 
@370 SAVBEG .BYTE @ @ 
@38@ ARGPOS .BYTE @ 
“fizoa ZFLAG .BYTE #@ 
a4eg LCFLAG .BYTE #@ 
A4ig FIRSTRUN .BYTE 


QAaAaD 


G4a2aG INDEX = SD 
#430 TMP . BYTE & 
WAAC 5 


84358 UMOVE LDA FROML 
G460 STA MOVLOOP+1 
a47e2 LDA FROMH 

G4AGG STA MOVLOOP+2 
G49 LDA DESTL 

g580 STA MOVLOOP+4 
g5i¢g LDA DESTH 

g528 STA MOVLOOP+S 
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$539 LDX HLEN 

@S49 REQ SKIPMOV 
a55@ MOV1 LDA #4 
@56@ MOV2 STA ENDPOS 
570 LDY #9 

@58@ MOVLOOP LDA $FFFF.Y 
599 STA SFFFF.Y 
Gogg INY 

@61a@ CPY ENDPOS 

G62@ ENE MOVLOOP 
@630 INC MOVLOOP+2 
9649 INC MOVLOOP+S 
S658 CPX #8 

G69 BEQ OUT 

Ga7a DEX 

686 BNE MOV1 

Zo9oe SKIPMOV LDA LLEN 
A799 BNE MOV2 

a7198 OUT RTS 

B720 ; 

g739 DMQVE LDA HLEN 
a74G TAX 

9759 ORA LLEN 

9768 BNE NOTNULL 
477% RTS 

@789 NOTNULL CLC 
4790 TXA 

aeaa ADC FROMH 

@81a STA DMOVLOOF+2 
@829 LDA FROML 

@9830 STA DMOVLOOP+I 
g849 CLC 

G85@ TXA 

@86@ ADC DESTH 

g@879 STA DMOVLOOP+S 
g@9e@ LDA DESTL 

@89@ STA DMOVLOOF+4 
2900 INX 

991@ LDY LLEN 

g92@ BNE DMOVLOOP 
993G BEG SKIPDMOV 
994@ DMOV1 LDY #255 
9958 DMOVLOOP LDA #FFFF,Y 
296@ STA $FFFF.Y 
@97G DEY 

2989 CPY #255 

299@ BNE DMOVLOOP 
19G@ SKIPDMOV DEC DMOVLOOP+2 
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1919 DEC DMOVLOOF+S 

1g2a DEX 

1@30 BNE DMOVI 

1g4a RTS 

1gSa 3; 

19690 EDIT LDX #255:sReset stack 

1978 TXS 

1i@71 JSR CLALL 

1989 LDA #@:sClear RAMFLAG 

1998 STA RAMFLAG 

1i@a@ LDA #2:sLeft margqin 

41114 STA A2 

1124 JSR PRNTCR 

113@ ;Store addresses of commands 

1149 LDA #<LIST 

1158 STA COMVECT 

1146@ LDA #>LIST 

1178 STA COMVECT+1 

1188 LDA #<DOS 

1198 STA COMVECT+2 

12940 LDA #:>D0S 

1219 STA COMVECTHS 

12240 LDA #<¢ INIT 

1239 STA COMVECT+4 

12496 LDA #:>INIT 

12359 STA COMVECT+S 

1260 LDA #<SAVE 

1274 STA COMVECTtS 

i28a@ LDA #:;SAVE 

1299 STA COMVECT+7 

13990 LDA #<LOAD 

1319 STA COMVECT+8& 

1329 LDA #>LO0AD 

1339 STA COMVECT+9 

1344 LDA #<MERGE 

1359 STA COMVECTtIS 

1364 LDA #>MERGE 

1378 STA COMVECT+HIi1 

13809 LDA #<LADS 

1399 STA COMVECT+i2 

1440 LDA #SLADS 

14194 STA COMVECT+tH13 

1429 LDA #<SYS 

14309 STA COMVECT+14 

1448 LDA #:>SYS 

1450 STA COMVECT+HIS 

146@ :Set ERK instr. interrupt to breakpoint 
entry 

1478 LDA #< BREAK: STFA S1IS:LDA #>BREAKSSTA 3519 
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1486 LDA FIRSTRUN 

149@ BE® DONEW 

1590 JMP PROMPT 

153198 DGNEW LDA ##CB 

1528 STA FIRSTRUN 

1534 JMP INIT 

154@ NEW LDA #*¢ TEXTBAS:Store beginning locat 
ion at ending pointer 

1354 STA TEXEND 

1568 LDA #>TEXTBAS 

iS72@ STA TEXEND+1 

158@ JSR CLRCHNsKeyboard/Screen 

1599 RTS 

1498 INIT JSR NEW 

1618 5 

1628 PROMPT LDA #<PMSG;Print prompt 

1639 LDY #°>PMSG 

1648 JSR PRMSG 

165@ ENTER LDY #@:Get a line 

1466@ STY ZFLAG 

146704 STY LCFLAG 

1694 GETIT JSR CHARIN:sa character 

1698 LDX STsError? 

17920 BPL NOERR 

1710 CPX #136;End of file? 

1720 BEQ EOFsdon’t print error 

1730 CPX #128ssame for break key abort 

1749 BEG EOF 

1730 JSR ERRPRINTsprint other error 

1769 EOF JSR CLOSEIT:close down active file 

1778 IMP FPROMPTsget new line 

17890 NOERR CMF #34:A quote toggles the lower 
case flag 

1799 BNE NOTGUOTE 

1890 PHAs:save quote 

1818 LDA LCFLAG:flip lowercase 

182¢@ EGR #1 

183@ STA LCFLAG 

1848 PLAsrestore quote 

1859 NGOT@QUOTE CMP #48san ASCII "a"? 

1868 BNE NOTZ 

18790 LDX ZFLAGsif so, check to see if it’s a 

leading zeroa 

1889 BEO GETITsif it is, ignore it 

1899 NOTZ INC ZFLAG:if we get here, reset le 
ading zero flag 

1940 CMP #593snow check for comment 

191@ BNE NOTREM 
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19296 


1F3ae 
1946 


i9gsa 
1966 
19708 


1984 
19996 
2880 
2819 
28208 
2939 
2040 
28359 
2969 
2978 
2988 
2a98 
2199 


2119 


2126 


21368 


2144 
21354 


2160 
2174 
2188 
2190 
22060 


2218 
2228 
2236 


224G 
2259 


22668 
2278 
228@ 
2290 
2380 
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INC LCFLAG: disable lowercase conversion 
for rest of line 

NOTREM LDX LCFLAG 

BNE NOTLOWERsSif remflag has been set, d 

on’t convert lowercase 

AND #1273kill inverse 

CMP #97; lowercase "a" 

BCC NOTLOWERs if less than, not lowercas 
e 

CMP #123: lowercase “z"+tt1 

BCS NOTLOWERsif +=, not lowercase 

AND #953;kill bit S&S (127-32=95) 

NOTLOWER STA BABUF,Ysstore it 

INY 

CMP #2 

BNE GETIT 

DEY 

LDA #155 

STA BABUF.,.Y 

STY INLENssave length of line 

CPY #393 

BE@ ENTERsif length=@, blank line, so g 

0 back 

LDA BABUF;first character: is it a numb 

er? 

CMP #58 

BCS COMMAND; greater than "9", so must b 
e a command 

CMP #48; "9" 

BCS LINEsqreater than "9", but greater 
than/= "a">? 

JMP COMMAND:no, so command 

sMust be a line, so get line number 
LINE LDA #255:no0 offset 

JSR GETLNUM 

LDA INDEX; INDEX points to first non-num 
eric digit 

STA TEXTPTRsso save it 

LDA FOUNDFLAG: if it exists 

BNE NODELETE;sit not. don*t delete it 
JSR DELETE 

NODELETE LDY TEXTPTRsis there any text 
on the line? 

CPY INLEN:scompare to kine length 

BE@ OVERINGsno0 text. just delete 

JSR INSERT; otherwise insert line 
OVERINS JMP ENTERsand get another line 
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COMMAND LDA #<COMTABLE;s point to start o 
f command table 

STA FTR 

LDA #>COMTABLE 

STA FPTR+1 

LDY #@:for loop 

STY COMNUMsclear command number 

LDX #@;sfor loop 

SRCH LDA (PTR). Ysget a character of com 
mand table 

BEQ COMFOUNDsif we get zero here, comma 
nd is found 

CMP #2553o60r syntax error 

BEG SYNERR 

CMP BABUF,Xsmatch with parallel charact 
er in line buffer? 

BNE NOTFNDsif comparison fails, try nex 
t command 

INXsnext character 

BACKIN INY 

BNE SRCHsbump high byte? 

INC PTRtisyes 

JMP SRCHs continue 

NOTFND LDA (PTR),Ysif not found, skip p 
ast ending zero 

BEQ NXTONE 

INY 

BNE NOTFND 

INC PTR+i 

JMP NOTFND 

NXTFONE INC COMNUMsbump up command numbe 
r 

LDX #@scontinue search 

JMP BHACEIN 

SYNERR LDA #<SYNMSG:iprint syntax error 
LDY #-?>SYNMSG 

JSR PRMSG 

JMP PROMPT 

COMFOUND STX ARGPOS 

LDA COMNUMsindirect jump to address of 
command 

ASL 

TAX 

LDA COMVECT, X 

SEC 

SHC #1 

STA TMP 

LDA COMVECT+tH1, X 
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2714 
2728 
273 
2749 
27358 
2768 
2778 


2788 
2799 
28aga 
2819 
2829 
2834 
2849 
2959 
2869 
2876 
288a 
2898 
2788 
2919 
2929 
2938 
274H 
29359 


2768 


2778 
29788 


2998 
3OD9 
3H1 8 
SAZO 
SASH 
394a 
SaS8 
3868 
3a7a 
348a 
3498 
32198 
3114 
3124 
3138 
Sidi 
S31 4G 
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SBC #9 

PHA 

LDA TMP 

PHA 

RTS 

:Command table. Format: 

:- BYTE "command" @, "command" @, 
to end table) 

COMTABLE .BYTE "LIST" 


tJ 
a) 
a] 
N 
Ch 
wn 


-BYTE @ 

-BYTE "pos" 
-BYTE @ , 
-BYTE "NEW" 
-BYTE @ 

-HYTE "SAVE " 
-BYTE @ 

-BYTE "LOAD " 
-BYTE @ 

»~BYTE "MERGE " 
-BYTE @ 

»~BYTE "LADS" 
-BYTE 

»~BYTE "SYS" 
-BYTE @ 

-BYTE 255 


stable will hold address of each comman 
d routine in low,high format 

COMVECT .BYTE 9 BGHHHEHHEBAHAAGSG 
98 & 

5 

MLIST LDA #<TEXTBAS;Point to beginning 

of program 

STA PTR 

SECsget length of program to list 

LDA TEXEND 

SBC PTR 

STA LLENsinto LLEN 

LDA #>TEXTBAS 

STA PTR+1 

tDA TEXEND+1 

SBC PTR+1 

STA HLEN:and HLEN 

INLIST LDA HLEN 

TAX 

ORA LLENsboth zero? 

BNE DOLIST 

RTSsif so, exit LIST 

DOLIST LDA #1:STA 7656 

CPX #@shigqgh byte zero? 
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es 
tC ted td 
tal AJ 
©] & & 


tA td | tA 


SSG 
S540 
S558 
S568 
35708 
S580 


BEQ LOLSTs3sif sao. skip primary pass 
LDA #@3;for primary pass, list fully 
STA LEN 

RELIST LDY #4 

PRLIST LDA (PTR).Y 

JSR PRINT: print a character 

LDA ST 

EMI QUTLIST;exit on error 

INY 

CPY LEN 

BNE PRLIST 

INC FPTR+1 

DEXsprimary pass completed? 

BMI OUTLIST;1f so, do secondary pass 
BNE FRLISTsif not. continue 

LOLST LDA LLENsnow list remainder (seco 
ndary pass) 

STA LEN 

JUMP RELISTs continue 

BUTLIST LDA #@:STA 7S6:RTS3go back to R 
ePady 


DOS JMP (1@);3DOS Vector 

FINDLINE LDA #2 TEXTBAS; start at top of 
program 

STA PTReinitialize pointer 

LDA #>TEXTBAS:same for high bytes 
STA FPTYTR+1 

LDA #4 

STA FOUNDFLAG;set foundflag to affirmat 
ive 

TAY 

LEO STY YSAVE:preserve Y 
TYAspoint to first byte in line 
CLC 

ADC FTR 

STA TEMFssao we can convert line # 
STA BEGFTRssave start of line 

STA ENDFTR 

LDA PTR+issame for high byte 

ADC #H# 

STA TEMPFtH1 

STA BEGPTR+I1I 

STA ENDPTR+1 

s;check to see if at end 

SEC 
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3590 LDA BHEGPTR 

3600 SRC TEXEND 

3618 STA TMP 

3620 LDA BEGPTR+1 

3638 SHC TEXEND+1 

2646 ORA TMF 

365@ BCC NOTEND 

3664 JIMP NOTFOUND2 

3678 NOTEND JSR VALDEC 

2688 SECssee if line number matches 

3698 LDA RESULT 

3748 SBC LNUM 

3719 STA TMP 

3726 LDA RESULT+1 

3739 SRBC LNUM+1 

3749 QRA TMP 

3759 BEQ FOUNDLINEsif match, line found 

3768 BCS NOTFOUND 

37728 sno match at all, so continue search 

37894 NEXTLINE JSR EOLsskip to end of line 

37908 INYsskip over eal 

3880 BNE NOADJ2 

3814 INC PTR+1 

3829 NOADIJI2 JMP LE@Qscontinue search 

3838 FOUNDLINE DEC FOUNDFLAGsset to found (a 
#ter INC in NOTFOUND?2) 

384@ NOTFOUND JSR EOLsskip past end of line 

385@ CLCsstore at ending address 

3868 TYA 

38768 ADC PTR 

3888 STA ENDPTR 

3898 LDA #9 

39968 ADC PTRK+1 

3914 STA ENDPTR+1 

3924 NOTFOUND? INC FOUNDFLAG;if 255, then @ 
(found), else 1 (not found) 

39309 SECsget size of line 

39496 LDA ENDPTR 

3958 SBC BEGPTR 

39608 STA LINESIZEsput it in LINESIZE 

3978 LDA ENDPTR+1 

39789 SHE BEGPTR+1 

3999 STA LINESIZEtl1 

4860 INC LINESIZE 

4416 BNE NOINCS 

49290 INC LINESIZEt1 

4830 NOINCS RTS 

4949 sskip past end of line 

4950 EOL LDY YSAVEsrestore Y 
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496@ SRCHEND LDA (PTR).Y¥sget character 

4979 CMP #155 

4984 BEQ ENDLINE;if zero (EQL) 

499@ INY:sbump up pointer 

4199 BNE SRCHENDs zero? 

411@ INC PTRti:snext block 

412@ NGADJI JMP SRCHEND;end of line? 

4134 ENDLINE RTS 

41i4@ 3; 

4136 ;:Print message 

416@ PRMSG STA PTRsprepare pointer 

41708 STY PTR+ti1 

41896 LDY #38 

4198 PRLOOP LDA (FPTR),Y¥s3sget msg char 

4299 BEQ OUTMSG:zero (end of message) 

42710 JSR PRINT:;else print char 

42209 INYscontinue loop 

4230 BNE PRLOOP 

4240 OQUTMSG RTS 

4250 3; 

4264 ;FINDLINE has initialized BEGPTR, ENDPT 
R, and LINESIZE 

42708 DELETE LDA ENDPTR:move FROM LCend of lin 
et+id 

428a CLC 

42990 ADC #1 

4399 STA FROML 

4314 LDA ENDPTR+1 

432@ ADC #2 

4338 STA FROMH 

4344 LDA BEGFPTRsto beginning of line 

43508 STA DESTL 

4369 LDA BEGPTR+I1 

4378 STA DESTH 

4380 SECslength af move is TEXEND-ENDPTR 

4390 LDA TEXEND 

4496 SEC ENDPTR 

44194 STA LLEN 

4420 LDA TEXEND+1 

4439 SBC ENDPTR+1 

444@ BCS ZLAST 

44354 LDA TEXEND 

446@ HE@ NODEC2 

447@ DEC TEXEND+t1 

448@ NODEC2 DEC TEXEND 

44998 JIMP NOMOV 

4598 ZLAST STA HLEN 

43514 ORA LLEN 

4520 BEQ SKEIPDELsnothing to move! 
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4330 JSR UMOVE 

45448 NOMOV SEC 

4535@ LDA TEXEND;s subtract size of deleted lin 
e from program end 

4360 SBC LINESIZE 

4378 STA TEXEND 

4589 LDA TEXEND+1 

43908 SRC LINESIZE+1 

46494 STA TEXEND+1 

4614 SKIPDEL RTSsdelete done! 

4620 3; 

463% INSERT LDA BEGPTFRiinsert gap at found 1 
ine positian 

464@ STA PTR;salso set pointer 

4656 STA FROML: move From BEGPTR 

4668 SEC 

4&74@ ADC INLENsto BEGPTR+INLEN+1 

4680 STA DESTL 

4698 LDA BEGPTR+1 

4740 STA PTR+1:same for high 

4714 STA FROMH 

472a ADC #4 

4738 STA DESTH 

4746 SEC;# of bytes to move is 

4735@ LDA TEXENDs: (TEXEND—-BEGPTR) +1 

4769 SBC BEGPTR 

4778 STA LLEN 

4788 LDA TEXENDtI! 

479@ SBC BEGPTRt! 

48@0 STA HLEN 

4819 BCS NOTLAST 

4820 LDA TEXEND 

483@ BNE NODEC 

4846 DEC TEXEND+ti1 

4854 NODEC DEC TEXEND 

4360 JMP INSEXIT 

48708 NOTLAST OQRA LLEN 

4889 HEO INSEXITsnothing to insert! 

4896 NOINC? JSR DMOVE:do insert 

4990 INSEXIT SECsadd length of line added 

4918 LDA TEXENDsto end of text pointer 

49296 ADC INLEN 

4921 STA TEXEND 

4946 LDA TEXEND+t!i 

493590 ADC #6 

496@ STA TEXEND+1 

4970 LDY #@:qap ready, put in line 

4986 INSLOOP LDA BABUF,Y 

4996 STA (PTR).Y 
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38OSD 
U919 
3826 
SH38 
JG4a 
5858 
S68 
3870 
593g 
3998 
v1iga 
sii 
3129 
S13 
91408 
sisd 
vid 
3176 
31g 
3198 
a2 ee 
37214 
m2 28 
U2 oR 
32 4 
3254 
3260 
3278 
3280 
s3298 
vod 
351d 
3328 
rape eS) 
3548 
sou 
3568 
was a 
3S8a 
var CR 


34 wh 
S418 
342 aI 


3434 
7440 
34504 
3464 


INY 

CPY INLEN 

BCC INSLOOP 

BE@ INSLOOP 
RTS:insert done! 
CLOSEIT LDA FNUM 
BEQ@ NOCLGSE 


JSR CLOSE 

NOCLOSE JSR CLRCHN 
RTS 

ERRPRINYT LDA ST 
STA TMP 


JSR CLALL 

LDA #< ERRMSG 

LDY #>ERRMSG 

JSR FPRMSG 

LDX TMP 

LDA #9 

JSR OQUTNUM 

JSR PRNTCR 

RTS 

PMNSG .BYTE 155 

-BYTE "LADS Ready." 

-BYTE 155 @ 

SYNMSG .BYTE 253 

-BYTE "Syntax Error" 

-BYTE 155 © 

ERRMSG .BYTE 253 

-BYTE “Error —- " 

-BYTE @ 

BREMSG .BYTE "BRE from " 

-BYTE @ 

GETNUM STA 8$F2 

INC $F2 

LDA #< BHABUFs point to line buffer 
STA $F 

LDA #>BABUF 

STA F4;o0f fset should be in $FfF2 
JSR $D8G8G;sconvert ASCIT to floating poi 
mt 

RCS NUMERR 

JSR @D9D2: floating point to integer 
LDA $F23store pointer to first non-nume 
ral 

STA INDEX 

RTS 

NUMERR LDA #@: clear result 

STA D4 
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347 
J46 a 
S498 


S5ao 
SSid 
5520 
5530 
S540 
sss 
S54e 
5570 
55386 
S590 


Soa gw 
36190 
3620 


S630 


3648 
365a 
3664 
36 7 fH 
vOoSe 
soos 
378g 


STA $D5 

RTS 

GETLNUM JSR GETNUM: Get number from BABU 

F+e(accumulator+i) 

LDA $D4sput it in LNUM 

STA LNUM 

LDA #D5 

STA LNUM+1 

JSR FINDLINE: find the line 

RTS 

LIST JSR GLIST 

JUMP PROMPT 

GLIST LDA ARGPOS: Any arguments? 

CMP INLEN snot if argpos is at end of ili 

ne 

BNE YESARG 

JMP MLISTsso list all 

YESARG JSR GETLNUM:sqget first numeric ar 

gument 

LDA BEGPTRslist from beginning of first 
line 

STA SAVBEBEGssave beqinning pointer 

LDA BEGFPTR+1 

STA SAVBEG+HI1 

LDA ENDFPTRssave end of first line 

STA SAVEND 

LDA ENDPTR+t+1 

STA SAVEND+1 

LDA INDEXspoint to second argument 

CMP INLENsif equal, no second argument 

BNE YESARG2 

{DA FOUNDFLAG:no second arg. soa check f 

or legal line 

BNE NOLISTsline wasn’t found, sa don’t 
list it 

LDA SAVEND:srestore end of line 

STA ENDPTR 

LDA SAVEND+I1 

STA ENDPTR+tIi 

JMP OVERZsand skip 

YESARG? JSR GETLNUMsget second line num 

ber 

OVER? LDA SAVBEG 

STA PTR 

LDA SAVBEGtHI 

STA PTR+1 

SECs;calculate length 

LDA ENDPTR 

SBC PTR 
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3898 STA LLEN 
5988 LDA ENDPTR+1 
539719 SBC PTR+1 
3929 STA HLEN 
3938 BCS GOLISTsif second # < first#, don’t 
list 
5749 NOLIST RTS 
9941 GOLIST LDA FOUNDFLAG: BNE NOINCH 
399358 INC LLEN 
3969 BNE NOINCH 
3978 INC HLEN 
39788 NOINCH JMP INLIST 
Ss797a ; 
64#@a@ QPENFILE CLC 
6@14 LDA ARGPOS 
6424 ADC #< BABUF 
64308 STA FNAMEPTRspoint to filename 
5648 LDA #0 
6930 ADC #>BABRUF 
6868 STA FNAMEFPTR+1 
6876 LDY ARGPOSsfind end of filename 
648@ GETFNAME LDA BARUF,Y 
699@ CMP #155; end of line? 
6140 BEQ ENDFNAMEsif so, exit loop 
6118 CMP #44:end of filename? 
6120 BEQ ENDFNAMEsalso legal 
6130 INY 
6144 BNE GETFNAME:if no delimiter found... 
6158 JIMP SYNERRsit’s a syntax error 
616@ ENDFNAME TYAsconvert Y pointer to lengt 
hh 
61728 SEC 
6189 SRBC ARGFOS: Y-argpoas 
6198 STY ARGPOS:reset arqpos for list 
626008 STA FNAMELEN; filename length 
$5219 LDA #7;CLOSE #7 
62208 STA FNUM 
62308 JSR CLOSE 
62440 LDA #4;0PEN #7.n,48.filename 
2508 STA FSECOND 
6268 JSR OFENsdo open 
62768 LDX STscheck for error 
6280 EMI ERRABORTs yes. error 
6290 RTS 
6308 ERRABORT PLAsdisk error, 50 abort 
6318 PLA 
6326 JSR ERRPRINT 
6338 JIMP PROMPT 
6344 SAVE LDA #8:8 means output 
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6359 
6368 
637% 
6380 
6398 
5408 
6414 
6426 
6439 
64404 
64356 
6460 
6474 


6480 
6494 
S3H0 


6514 
S526 
6530 
654 
6559 
6568 
65708 
658a 
6598 


6690 
6614 
6628 
66340 
6640 
665a 
56664 


6676 
6680 
5690 
6728 
67124 
6720 
6734 
67446 
67354 
6768 
6778 
6786 
67979 
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STA FDEV 

JSR OPENFILEsopen the file 

LDX FNUM;sall FPRINTS go 

JSR CHKOUTs;to file 

JSR GLISTs:send out listing 

JSR CLOSEITsclose file 

JMP PROMPT 

MERGE LDA #434 for input 

STA FDEV 

JSR GPENFILEsoapen it 

LDX FNUMsall input comes from this file 
JSR CHEKIN 

JMFP ENTERs file will be closed automatic 
ally 

LADS LDA ARGFPOSsAnNy argument? 

CMP INLEN 

BNE NOTMEM:if argpos¢ tinlen, then there 
is.so don’t change RAMFLAG 

INC RAMFLAG 

NOTMEM JMP START 

SYS LDA ARGFOSs locate number 

JSR GETNUMsget it 

LDA $D4sput address directly 

STA JUMPVECtH+isinto code 

LDA #*DS;s;self-modifying! 

STA JUMPVEC+2 

JUMPVEC JSR S$FFFFsthis address will be 
Changed by above 

JMP PROMPT 

LOAD JSR PLOADsdo load 

JMP PROMPT: done 

PLOAD LDA #4:4 for read 

STA FDEV 

JSR OPENFILEsopen file 

AFTEROPEN LDA FNUMs all input comes from 
this file 

JSR xX1ié 

LDA #«< TEXTBAS 

STA ICHADR, X 

LDA #>TEXTBAS 

STA ICBADR+1,% 

LDA #8 

STA ICBLEN, X 

LDA #859 

STA ICELEN+I, X 

LDA #7 

STA ICCOM, X 

JSR CALLCIO 

LDA FNUM 
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6898 JSR X16 

6814 CLCzadd buffer length to get ending add 
r 

6820 LDA ICHLEN, X 

6839 ADC #£ TEXTBRAS 

68468 STA TEXENDsupdate end 

68508 LDA ICBLEN+1., X 

6860 ADC #>TEXTBAS 

6878 STA TEXEND+i 

68890 LDA ST 

6899 CMP #1i13é6:end of file? 

6790 BE@Q NOPRERR:if so, don*t print an error 
message 

6919 JSR ERRPRINT 

6928 IMP PROMPT 

6730 NOPRERR JSR CLOSEITsclose down file 

6949 RTSsend of load 

6958 BREAK CLI:LDA #C BREMSG:LDY #>BREMSG: JSR 
FPRMSG 

696@ PLA:PLA:PLA:SEC:SHC #2: TAX:PLA: SBC #68:J 
SR QUTNUM 

6963 LDX #255: TXS:3SGR PRNTCR: JMP EDIT 

69764 .FILE D: TABLES.SRC 


Atari Machine Language Programming 
There is a lot to be learned from the Atari LADS source code. 
Both the assembler and the editor are complex, powerful pro- 
grams. You might find uses in your own programming for 
such general-purpose routines as Valdec, UMOVE, and 
DMOVE. You can add functions to the editor such as search 
and replace. Or you could simply bypass the editor altogether, 
creating LADS-compatible source files using an ordinary word 
processor (and thus have access to the search and replace and 
other features of the word processor program). 

Since maps are invaluable in sophisticated ML program- 
ming, you might want to purchase Mapping the Atari (COM- 
PUTE! Books, 1983). 


Special Apple Notes 

The Apple version of LADS works the same as the Com- 
modore 64 version with only slight modifications. The Apple 
doesn’t have the convenience of Kernal routines to access 
DOS, so routines had to be written which could directly access 
the DOS file manager routines. This required extensive 
changes to the Open! subprogram, which are discussed below. 
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Also, because the Applesoft tokenize routine takes the 
spaces out of the text, it was necessary to put a wedge into 
Apple’s CHRGET routine to intercept the BASIC tokenize rou- 
tine. And the wedge includes a routine that puts the filename 
of the program you want to assemble to the top of the screen 
where LADS expects to find it. 


Apple Disk Access 

The Apple DOS file manager is the part of DOS that handles 
all file input and output to the disk. It calls RWTS 
(Read/Write to Track/Sector) and is called from the command 
interpreter. The command interpreter sends control bytes to 
the file manager through the file manager parameter list. You 
can access the file manager directly by sending it the param- 
eters it requires. 

To get the address of the parameter field you JSR to 
$03DC. This loads the Accumulator with the high byte and 
the Y Register with the low byte of the parameter field. You 
can then store these to a zero page location for easy transfer of 
the parameters. 


Table 11-1. Apple File Manager Parameter List 
Parameter 


1 2 3/4 5 6 ? 8 ,9/10 , 11 113/14 )15/16 )17/18 

OPEN 1 * * ik * * 1 * * Lo] 

CLOSE 2 * * * 
DELETE 5 * to] he we * * * ie 
CATALOG| 6 * | * * | * 

LOCK 7 te * * x * * * 

UNLOCK 8 a * “ * * we c | * 

REN AME 9 * ta * tf * ” * % 

INIT 11) 157 * * . * * 

VERIFY 1 ? * * LC * * we * * * 
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Parameter 
1 2 3/4 , 5/6 , 7/8 19/10) 11 112/14 115/16 | 17/18 

READ 1 Byte 3 1 * * * * * 
READ Range 3] 2 *7]*e Tee, ey 
POSITION and 3 3 * x * * a * 7 
READ 1 Byte 

POSITION and 3 4 ‘ * * * * ry * x 
READ Range 

WRITE 1 Byte ; 4 |} 1 * 7] * | * 1 * 7] * 
WRITE Range | 4 | 2 . *)]* |] * 
POSITION and 4 3 x x x * * x * 
WRITE 1 Byte 

POSITION and 4 4 * a * * * * = * 


WRITE Range 

POSITION 10 * | * * | * 
Note: The numbers in the leftmost column represent the 
opcode; the numbers across the top of this chart represent 
byte positions relative to the start of the parameter list. As- 
terisks signify that a byte is required for the operation listed. 
A blank space means that this parameter can be ignored. 
Nevertheless, the byte positions must be maintained. For 
example, to DELETE, you do not need to worry about the 
second, third, or fourth bytes—anything can be in them— 
but they must exist. The first byte must contain a five, and 
the fifth through the eighteenth bytes must be set up as de- 
scribed below. 


The parameters are expained in sections. The first section 
tells you about all the opcodes except for the read, write, and 
positions opcodes, because they are slightly different from the 
rest. The second section tells you about the read, write, and 
position opcodes; the third, about the last set of parameters 
that is common to all opcodes. 

The first byte of the parameter field is the opcode type. 
This parameter can be in the range of 1 to 12. 

The second parameter is used only with the INIT 
opcodes. If you are using a 48K Apple, the correct value for 
this parameter is 157. 

The third and fourth parameters are used with the OPEN 
and RENAME opcodes. Together they hold the record length 
of a random access file. If you are not using a random access 
file, you should have a zero in both of these locations. With 
the RENAME opcode, these bytes hold the address of the new 
name. 
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The fifth byte holds the volume number. The sixth byte 
holds the drive number. The seventh byte holds the slot num- 
ber. The eighth byte holds the file type. 

The ninth and tenth bytes hold the address of the 
filename. The filename must be stored in the address pointed 
to by these bytes. It must be padded with spaces. 

This section explains the read, write, and position 
opcodes, 

The first byte holds the opcode. The second byte holds 
the subcode. 

The next four bytes are used only when you require a po- 
sition command. The third and fourth bytes hold the record 
number. The fifth and sixth bytes hold the byte offset. To re- 
position the pointer in an open file, you can use these bytes to 
calculate a new position. The new position is equal to the 
length of the file specified in the open opcode times the record 
number plus the byte offset. 

The seventh and eighth bytes hold the length of the range 
of bytes. This is used only when reading or writing a range. 

When reading or writing a range of bytes, the ninth and 
tenth bytes hold the start address of the range. If you are read- 
ing or writing only one byte, then the ninth byte holds the 
byte you read or the byte you are going to write. 

The following are parameters for all the opcodes. 

The eleventh byte is the error byte. It should be checked 
each time after you access the file manager. The errors are as 
follows: 


0: NO ERROR 

2: INVALID OPCODE 

3: INVALID SUBCODE 
4: WRITE PROTECTED 
5: END OF DATA 

6: FILE NOT FOUND 

7: VOLUME MISMATCH 
8: I/O ERROR 
9: DISK FULL 
10: FILE LOCKED 


The twelfth byte is unused. The thirteenth and fourteenth 
bytes are used for the address of the work area buffer. This is 
a 45-byte buffer in one of the DOS buffers. 
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The fifteenth and sixteenth bytes hold the address of the 
track/sector list sector buffer. This is a 256-byte buffer in one 
of the DOS buffers. 

The seventeenth and eighteenth bytes hold the address of 
the data sector buffer. This is another 256-byte buffer in one 
of the DOS buffers. 

Once you have sent the correct parameters, you can call 
the file manager by a JSR to $03D6. You must specify if you 
want to create new file on disk if the one you are accessing 
doesn’t exist. This is done by loading the X Register with a 0. 
If you don’t want to create a new file, you can load the X Reg- 
ister with a 1. If you don’t want to create a new file and you 
try to access a file that doesn’t exist, you will receive an error 
number 6 in byte 11 of the parameter field. 

Apple LADS uses the routines in the file manager that 
read or write one byte from or to the disk at a time. The gen- 
eral routine to transfer the parameters from Tables to the file 
manager can be found between lines 810 and 920 in the 
Open! listing. This is called from the individual subroutines 
for opening, closing, reading, and writing. The OPEN routines 
require a filename. Lines 580-800 handle the transfer of the 
filename from the filename buffer to the specific buffer. 

There is also a check to see whether a file about to be 
opened has been opened previously. This was needed because 
you cannot close a file unless it was previously opened. This is 
handled in the close routine (370-570). 

The PRINT routine handles all output, and the CHARIN 
routine handles all input. There is one input and one output 
channel, and all input and output must be handled through a 
channel. The bytes which govern this event are set in the 
CHKIN and CHKOUT routine. The CHKIN routine (930-940) 
sets all input to come from that file. The CHKOUT routine 
(950-1030) sets all output to go to that file. The PRINT routine 
(1170-1430) and the CHARIN routine (1040-1160) check to see 
what channel is currently open, then go to that routine. 

The BASIC wedge (1700-2530) handles the tokenizing of 
the BASIC text. It checks to see if the text pointer is at $200 
(the input buffer). If not, it goes to the normal GETCHR rou- 
tine. Otherwise, it checks to see if the first character is a num- 
ber. If so, it goes to the insert line routine, and if not, it checks 
for the characters ASM. If that is found, the wedge concludes 


331 


Modifying LADS: Special Notes on Atari and Apple LADS 


its work by putting the filename at the top of the screen and 
jumping to the start of LADS. 

The insert line routine gets the line number, then jumps 
to the Apple tokenize routine, which loads the Y Register with 
the length of the line plus six and then jumps to the normal 
line insert and tokenize routine. 

The last subroutine in Open] is the first thing that is 
called when you BRUN LADS. It initializes the wedge and sets 
HIMEM to the start of LADS. 
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How to Use LADS 


Here is a step-by-step explanation of how to assemble ma- 
chine language programs using the LADS assembler. As you 
familiarize yourself with its features and practice using it, you 
will likely discover things about the assembler which you'll 
want to change or features you'll want to add. For example, if 
you find yourself frequently using an impossible addressing 
mode like LDY (15,Y), you might want to insert an error trap 
for that into LADS source code. Chapter 11, ‘Modifying 
LADS,” shows you how these customizations can be accom- 
plished. But here is a description of the features which are 
built into LADS. 


Apple and Atari Versions 

For the most part, the commands and features of LADS are 
the same for all versions: Apple, Atari, and Commodore. A 
few differences are discussed at the end of the general instruc- 
tions for all versions of LADS. No matter which computer you 
use, you should read the body of this chapter to understand 
how to get the most out of LADS. Then, if you use an Atari or 
an Apple, you can read the special notes at the end of this 
appendix which explain some minor variations applicable to 
those computers. 


General Instructions for Using LADS 

LADS assembles from source files. They are particularly easy 
and convenient to create; just turn on your computer and pre- 
tend you're writing a BASIC program. (To create source files 
for the Atari, see ‘Special Atari Notes’”” below.) Commodore 
and Apple LADS work with source files created exactly the 
way you would write a BASIC program. Here’s an example: 
10 *= $0360 

15 .S 

20 LDA #22:LDY #0 

30 STA $1500,Y 

40 END TEST 


Use line numbers, colons, and whatever programmer's 
aids (Toolkit, BASIC Aid, POWER, automatic line numbering, 
etc.) you ordinarily use to write BASIC itself. 
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After you’ve typed in a program, save to disk in the nor- 
mal way. (Tape drive users: See special ‘‘Note to Tape Users” 
at the end of this appendix.) Notice line 10 in the example 
above. The first line of any LADS source file must provide the 
starting address, the address where you want the ML program 
to begin in the computer’s memory. You signify this with the 
*= symbol, which means “program counter equals.’’ When 
LADS sees *=, it sets the Program Counter to the number 
following the equals sign. Remember that there must be a space 
between the = and the starting address. 

The last line of each LADS source file must contain either 
the .END pseudo-op or the .FILE pseudo-op. Both of them 
link source files together in case you want to chain several 
files into one large ML program. However, .FILE names the 
next linked source file in the chain whereas .END always 
specifies the first source file of the chain. If there is only one 
file (as in our example above), you still must end it with END 
and give its name as the first file. More about this shortly. 

Also notice that you can use either decimal or hexadeci- 
mal numbers interchangeably in LADS. Lines 10 and 30 con- 
tain hex; line 20 has decimal numbers. 

After you’ve saved the source code to disk, you can as- 
semble it by loading LADS and then typing the name of the 
source file in the upper left-hand corner of the screen. (The 
Atari version differs here as well.) Let’s go through the process 
step by step. Type in the little source program above as if you 
were writing a BASIC program. SAVE it by typing: 

SAVE “TEST”,8 
Then LOAD “LADS",8,1 
Type NEW 


Clear the screen and type in the source file’s name in the 
upper left-hand corner: 


TEST 


Then cursor down a line or two and type SYS 11000 and 
hit the RETURN key. That will activate LADS on the Com- 
modore 64, VIC-20, and 8032 PET/CBM. See the special notes 
below for using the Atari and Apple versions of LADS. 

You will see the assembler create the object code, the bytes 
which go into memory and comprise the ML program. 

Note: Be sure to remember that every source code program 
must end with the .END NAME pseudo-op. In our example, we 
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concluded with END TEST because TEST is the name of the 
only file in this source code. Also notice that you do not use 
quotes with these filenames. 

To review: Every source code program must contain the 
starting address in the first line (for example, 10 *= $0800) 
and must list the filename on the last line (for example, 500 
.END SCREENPROG). If you chain several source code pro- 
grams together using the .FILE pseudo-op, you end only the fi- 
nal program in the chain with the END pseudo-op. These two 
rules will become clearer in a minute when we discuss the 
.END and .FILE pseudo-ops. 


Features 

There are a number of pseudo-ops (direct instructions to the 
assembler) available in LADS. The .S in line 15 is such an 
instruction. It tells LADS to print the results of an assembly to 
the screen. If you add the following lines to our test program, 
you will cause the listing to be in decimal instead of hex and 
cause LADS to save the object code (the runnable ML pro- 
gram) to a disk file called T.OBJ. 


10 *= $0360 

11 .NH 

12 .D T.OBJ 

20 LDA #22:LDY #0 
30 STA $1500,Y 

40 .END TEST 


The pseudo-op .NH means no hex (causing the listing to 
change from hex to decimal), and .D means create a disk file 
containing the ML program which results from the assembly 
process. 

You can add REM-like comments by using a semicolon. 
And you can turn the screen listing off with .NS, anytime. 
Turn it on or off as much as you want: 

10 *= $0360 

11 .NH 

12 .D T.OBJECTPROGRAM 

15 .NS 

20 LDA #22:LDY #0; load A with 22, load Y with zero 
30 STA $1500,Y 

40 .END TEST 


You turn on printer listings with .P and turn them off 
with .NP. However, for the .P pseudo-op to work, the .S 
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screen listings pseudo-op must also be turned on. In other 
words, you cannot have listings sent to the printer without 
also having them listed on the screen at the same time. To 
have the ML stored into memory during assembly, use .O and 
turn off these POKEs to memory with .NO. 

The pseudo-ops which turn the printer on and off; direct 
object code to disk, screen, and RAM; or switch between hex 
or decimal printout can be switched on and off within your 
source code wherever convenient. For example, you can turn 
on your printer anywhere within the program by inserting .P 
and turn it off anywhere with .NP. Among other things, this 
would allow you to specify that only a particular section of a 
large program be printed out. This can come in very handy if 
you're working on a 5000-byte program: you would have a 
long wait if you had to print out the whole thing. 

Always put pseudo-ops on a line by themselves. Any 
other programming code can be put on a line in any fashion 
(divided by colons: LDA 15:STA 27:INY), but pseudo-ops 
should be the only thing on their lines. (The .BYTE pseudo-op 
is an exception—it can be on a multiple-statement line.) 


100 .P .S (wrong) 

100 .P (right) 

110 .S (right) 

Here’s a summary of the commands you can give LADS: 

P Turn on printer listing of object code (.S must 
be activated). 

-NP Turn off printer listing of object code. 

.O Turn on POKEs to memory. Object code is 
stored into RAM during assembly. 

NO Turn off POKEs to memory. 

D filename Open a file and store object code to disk during 
assembly (use no quotes around filename), 

FILE filename Link one source file to the next in a chain so 


that they will all assemble together as a single 
large source program (end the chain with END 
pseudo-op). 

-END filename Link the last source file to first source file in a 
chain. If you are assembling from a single file, 
give its filename as the .END so the assembler 
knows where to go for the second pass. Any 
source code must have .END as the last line in 
the program, whether the source code is con- 
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tained within a single disk file or spread across 
a multiple-file chain. 

S Turn on screen listing during assembly (re- 
quired if you desire a hardcopy listing from a 
printer using the .P pseudo-op). 


NS Turn off screen listing during assembly. 

-H Turn on hexadecimal output for screen or 
printer listing. 

NH Turn off hexadecimal output for screen or 
printer listing. (As a result, the listings are in 
decimal.) 

*#= Set program counter to new address. 


A Stable Buffer 

The pseudo-op *= is mainly useful when you want to 
create data tables. The subprogram Tables in LADS source 
code is an example. (A subprogram is one of the source code 
files which, when linked together, form an entire ML pro- 
gram.) You might want to create an ML program and locate its 
tables, equates, buffers, and messages at the high end of the 
ML program the way LADS does with its Tables subprogram. 
Since you don’t know what the highest RAM address will be 
while you’re writing the program, you can set “= to some ad- 
dress perhaps 4K above the starting address. This gives you 
space to write the program below the tables. The advantage of 
stable tables is that you can easily PEEK them and this greatly 
assists debugging. You'll always know exactly where buffers 
and variables are going to end up in memory after an assem- 
bly—regardless of the changes you make in the program. 

Here’s an example. Suppose you write: 


10 *= $5000 
20 STA BUFFER 
30 *= $6000 


40 BUFFER .BYTEO0000000000000 
50 .END BUFFEREXAMPLE 


This creates an ML instruction (STA buffer) at address $5000 
(the starting address of this particular ML program), but places 
the buffer itself at $6000. When you add additional instruc- 
tions after STA buffer, the location of the buffer itself will re- 
main at address $6000. This means that you can write an 
entire program without having to worry that the location of 
the buffer is changing each time you add new instructions, 
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new code. It’s high enough so that it remains stable at $6000, 
and you can debug the program more easily. You can always 
check if something is being correctly sent into the buffer by 
just looking at $6000. 

This fragment of code illustrates two other features of 
LADS. You can use the pseudo-op .BYTE to set aside some 
space in memory (the zeros above just make space to hold 
other things in a ‘buffer’ during the execution of an ML pro- 
gram). You can also use .BYTE to define specific numbers in 
memory: 


-BYTE 65 66 67 68 


This would put these numbers (you must always use deci- 
mal numbers with this pseudo-op) into memory at the location 
of the .BYTE instruction. An easy way to create messages that 
you want to print to the screen is to use the BYTE pseudo-op 
with quotes: 


500 FIRSTLETTERS .BYTE “ABCD”:.BYTE 0 


Then, if you wanted to print this message, you could 
write: 
2 *= $0360 
5 LDY #0 
10 LOOP LDA FIRSTLETTERS,Y 
20 BEQ ENDMESSAGE 
30 STA $0400,Y; location of screen RAM on Commodore 64 
40 INY 
50 JMP LOOP 
60 ENDMESSAGE RTS; finished printout 
500 FIRSTLETTERS .BYTE “ABCD:.BYTE 0 
900 END MESSAGETEST 


Note that using the second set of quotes is optional 
with the .BYTE pseudo-op: You can use either .BYTE 
“ABCD:.BYTE 0 or BYTE “ABCD”:.BYTE 0. To POKE num- 
bers instead of characters, just leave out the quotes: BYTE 10 
15 75. And since these numeric values are being POKEd di- 
rectly into bytes in memory, they cannot be larger than 255. 


Labels 
With LADS, or with other assemblers that permit labels, you 
need not refer to locations in memory or numeric values by 
using numbers. You can use labels. 

In the example above, line 10 starts off with the word 
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LOOP. This means that you can use the word LOOP later on 
to refer to that location (see line 50). That’s quite a conve- 
nience: The assembler remembers where the word LOOP is 
used and you need not refer to an actual memory address; you 
can refer to the label instead. Throughout this book, this kind 
of label is called a PC-type (for Program Counter) or address- 
type label. 

The other type of label is defined is with an assembly 
convention called an equate (an equals sign). This is quite simi- 
lar to the way that BASIC allows you to assign value to 
words—it’s called “assigning variables” when you do it in 
BASIC. In ML, the = pseudo-op works pretty much the way 
the = sign does in BASIC. Here’s an example: 

5 *= $0360 

10 SCREEN = $0400; the location of the 1st byte in RAM of the 
64 screen 

20 HEARTSYMBOL = 83; the heart figure 

30; cnn nnnn nnn anna nn nenenen- 

40 START LDA HEARTSYMBOL; notice “START” (an address- 
type label) 

50 STA SCREEN 

60 RTS 


Line 10 assigns the number $0400 (1024 decimal) to the 
word SCREEN. Anytime thereafter that you use the word 
SCREEN, LADS will substitute $0400 when it assembles your 
ML program. Line 20 ‘“equates’’ the word HEARTSYMBOL to 
the number 83. So, when you LDA HEARTSYMBOL in line 
40, the assembler will put an 83 into your program. (Notice 
that, like BASIC, LADS requires that equate labels be a single 
word, You couldn’t use HEART SYMBOL, since that’s two 
words.) 

Line 30 is just a REMark. The semicolon tells the assem- 
bler that what follows on that line is to be ignored. Neverthe- 
less, blank lines or graphic dividers like line 30 can help to 
visually separate subroutines, tables, and equates from your 
actual ML program. In this case, we’ve used line 30 to sepa- 
rate the section of the program which defines labels (lines 10- 
20) from the program proper (lines 40-60). All this makes it 
easier to read and understand your source code later. 
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Automatic Math 

There are times when you will want to have LADS do addi- 
tion for you. That’s where the + pseudo-op comes in. If you 
write “label+ 1’ you will add 1 to the value of the label. 
Here’s how it works: 

10 *= 864 

20 MEMTOP = $34; top-of-memory pointer for 8032 PET. 

30; crcre ence ereennnennnnnnn anno 

40 LDA #0:STA MEMTOP:LDA #$50:STA MEMTOP+ 1 


Here we are putting a new location into the top-of- 
memory pointer which the computer uses to decide where it 
can store things. (Doing that could protect an ML program 
which resides above the address stored in this pointer.) Like 
all pointers, it uses two bytes. If we want to store $5000 into 
this pointer, we store the lower half (the least significant byte) 
into MEMTOP. We’ll want to put the number $50 into the 
most significant byte of the pointer—but we don’t want to 
waste time making a new label. It’s just one higher in memory 
than MEMTOP. Hence, MEMTOP +1. 

You'll also want to use the + pseudo-op command in 
constructions like this: 


10 *= 864 

15 SCREEN = $0400 

| ae 

20 LDA #32; the blank character 
30 LDA #0 


40 START STA SCREEN,Y 
50 STA SCREEN + 256,Y 
60 STA SCREEN + 512,Y 
70 STA SCREEN + 768,Y 
80 INY 
90 BNz START 

This is the fastest way to fill memory with a given byte. 
In this case we’re clearing out the screen RAM by filling it 
with blanks. But it’s easy to indicate multiples of 256 by just 
adding them to the label SCREEN. 

A similar pseudo-op command is the #<. This refers to 
the least significant byte of a label. For example: 


10 *= $0360 


20 SCREEN = $8011 
25 SCREENPOINTER = $FB 
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40 LDA #<SCREEN; LSB (least significant byte of the label 
SCREEN, $11) 
50 STA SCREENPOINTER 


You'll find this technique used several times in the LADS 
source code. It puts the LSB (least signficant byte) or the MSB 
(most signficant byte) of a label into the LSB or MSB of a 
pointer. In the example above, we want to set up a pointer 
that will hold the address of the screen RAM. The pointer is 
called SCREENPOINTER and we want to put $11 (the LSB of 
SCREEN) into SCREENPOINTER. So, we extract the LSB of 
SCREEN in line 40 by using # combined with the less-than 
symbol. We would complete the job with the greater-than 
symbol to fetch the MSB: 60 LDA #>SCREEN. Notice that 
these symbols must be attached to the label; no space is al- 
lowed. For example, LDA #> SCREEN would create problems. 
This LSB or MSB extraction from a label is something you'll 
need to do from time to time. The #< and #> pseudo-ops do 
it for you. 


Chained Files 

It is sometimes convenient to create several source code sub- 
programs, to break the ML program source code into several 
pieces. LADS source code is divided into a number of program 
files: Array, Equate, Math, Pseudo, etc. This way, you don’t 
need to load the entire source code in the computer’s memory 
when you just want to work on a particular part of it. It also 
allows you to assemble source code far larger than could fit 
into available RAM. 

In the last line of each subprogram you want to link, you 
put the linking pseudo-op .FILE NAME (use no quotes) to tell 
the assembler which subprogram to assemble next. Sub- 
programs, chained together in this fashion, will be treated as if 
they were one large program. The final subprogram in the 
chain ends with the special pseudo-op .END NAME, and this 
time the name is the filename of the first of the subprograms, 
the subprogram which begins the chain. It’s like stringing 
pearls and then, at the end, tying thread so that the last pearl 
is next to the first, to form a necklace. 

Remember that you always need to include the .END 
pseudo-op, even if you are assembling from a single, unlinked 
source code file. In such a case (where you’re working with a 
solo file), you don’t need the linking .FILE pseudo-op. Instead, 
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refer the file to itself with END NAME where you list the solo 
file’s name. Here’s an illustration of how three subprograms 
would be linked to form a complete program: 


5 *= 864 
10; “FIRST” ——first program in chain 
20;its first line must contain the start address 


40 LDA #20 
50 STA $0400 
60 .FILE SECOND 


Then you save this subprogram to disk (it’s handy to let 
the first remark line in each subprogram identify the sub- 
program’s filename): 


SAVE “FIRST’,8 


Next you create SECOND, the next link in the chain. But 
here, you use no starting address; you enter no *= since only 
one start address is needed for any program: 

10 ; “SECOND” 
20 INY:INX:DEY:DEX 
30 .FILE THIRD 


SAVE”“SECOND”,8 


Now write the final subprogram, ending it with the clasp 
pseudo-op .END NAME which links this last subprogram to 
the first: 


10; “THIRD” 
20 LDA #65:STA $0400 
30 .END FIRST 


SAVE “THIRD”,8 


When you want to assemble this chain, just type FIRST in 
the upper left-hand corner of the screen, SYS to LADS, and it 
will assemble the entire chain. 

If you want the object code (the finished ML program) 
stored in the computer’s memory during the LADS assembly, 
add this line to FIRST above: 


35 .O 


If you want to save the object code as an ML program on 
disk that can be later loaded into the computer and run, add 
this line to FIRST: 
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36 .D PROGRAMNAME 


When LADS is finished assembling, there will be an ML 
program on disk called PROGRAMNAME. You can load it 
and SYS 864 (that was the start address we gave this pro- 
gram), and the newly assembled ML program will execute. 

One additional pseudo-op is the #’’. It is sometimes useful 
when you want to load the Accumulator with a particular 
ASCII character and don’t offhand recall the numerical value. 
The letter A is 65 in the ASCII code. If you LDA #65:STA 
SCREEN, you would store the letter A to the screen. But, for 
convenience, you can LDA #”A:STA SCREEN. You can, in 
other words, use the #” followed by the character itself rather 
than by its ASCII code number. 


Rules for LADS 
Here are the rules you need to follow when writing ML for 
LADS to assemble: 

1. In general, all equate labels (labels using an equals sign) 
should be defined at the start of your program. While this isn’t 
absolutely necessary for labels with numbers above 255 (see 
SCREEN in the example below), it is the best programming 
practice. It makes it easier for you to modify your programs 
and simplifies debugging. LADS itself locates all its equate la- 
bels in the subprogram Defs, the first subprogram in its chain 
of source code files. 

What's more, it is necessary that any equate label with a 
value lower than 256 be defined before any ML mnemonics 
reference that label. So, to be on the safe side, just get into the 
habit of putting all equate labels at the very start of your 
programs: 

10 *= 864 

20 ARRAYPOINTER = $FB; (251 decimal), a zero page address 

30 OTHERPOINTER = $FD; (253 decimal), another zero page 
address 


50 LDY #0:LDA $41 
60 STA ARRAYPOINTER,Y 
70 SCREEN = $8000 


Notice that it’s permissible to define the label SCREEN 
anywhere in your program. It’s not a zero page address. You 
do have to be careful, however, with zero page addresses (ad- 
dresses lower than 255). So most ML programmers make it a 
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habit to define all their equates at the start of their source 
code. 

2. Put only one pseudo-op on a line. Don’t use a colon to 
put two pseudo-ops on a single line: 


10 *= 864 
20 .O:NH (wrong) 
30 .O (right) 


40 .NH (right) 


The main exception to this is the BYTE pseudo-op. Sometimes 
it’s useful to set up messages with a zero at their end to de- 
limit them, to show that the message is complete. When you 
delimit messages with a zero, you don’t need to know the 
length of the message; you just branch when you come upon 
a zero: 


10 *= 864 
20 SCREEN = $0364 


40 LDY #0 

50 LOOP LDA MESSAGE,Y:BEQ END; loading a zero signals 
end of message. 

60 STA SCREEN,Y:INY: JMP LOOP; LADS ignores spaces after a 
colon. 

70 ; ccerennn=- message area here ---------- 

80 MESSAGE .BYTE “PRINT THIS ON SCREEN”:.BYTE 0 


Any embedded pseudo-ops like + or = or #> can be 
used on multiple-statement lines. The only pseudo-ops which 
should be on a line by themselves are the I/O (input/output) 
instructions which direct communication to disk, screen, or 
printer, like .P, .S, .D, .END, etc. 

Generally, it’s important that you space things correctly. If 
you wrote: 


SCREEN= 864 


LADS would think that your label was screen= instead of 
screen. So you need that space between the label and the 
equals sign. Likewise, you need to put a single space between 
labels, mnemonics, and arguments: 


LOOP LDA MESSAGE 
Running them together will confuse LADS: 
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LOOPLDA MESSAGE 
and 
LOOP LDAMESSAGE 


are wrong. 

It’s fine to have leading spaces following a colon, how- 
ever. LADS will ignore those (see line 60 above). Also, spaces 
within remarks are ignored. In fact, LADS ignores anything 
following a semicolon (see line 70). However, the semicolon 
should come after anything you want assembled. You couldn’t 
rearrange line 50 above by putting the BEQ END after the re- 
mark message. It would be ignored because it followed the 
semicolon. 

When using the text form of .,BYTE, it’s up to you 
whether you use a close quote: 


50 MESSAGE .BYTE “PRINT THIS” (right) 
60 MESSAGE .BYTE “PRINT THIS (also right) 


3. The first character of any label must be a letter, not a 
number. LADS knows when it comes upon a label because a 
number starts with a number; a label starts with a letter of the 
alphabet: 

10 *= 864 

20 LABEL = 255 
30 LDA LABEL 
40 LDA 255 


Lines 30 and 40 accomplish the same thing and are cor- 
rectly written. It would confuse LADS, however, if you wrote: 


20 5LABEL = 255 (wrong) 


since the number 5 at the start of the word label would signal 
the assembler that it had come upon a number, not a label. 
You can use numbers anywhere else in a label name—just 
don’t put a number at the start of the name. Also avoid using 
symbols like # < > * and other punctuation, shifted letters, or 
graphics symbols within labels. Stick with ordinary 
alphanumerics: 


10 5LABEL (wrong) 
20 LABEL15 (right) 
30 *LABEL* (wrong) 


4. Move the Program Counter forward, never backward. The 
*= pseudo-op should be used to make space in memory. If 


347 


Appendix A: How to Use LADS 





you set the PC below its current address, you would be writ- 
ing over previously assembled code: 

10 *= 864 

20 LDA #15 

30 *= 900 (right) 

10 *= 864 

20 LDA #15 

30 *= 864 (wrong, you'll assemble right over the LDA #15) 


Special Note to Tape Drive Users 

LADS will assemble source code from disk or RAM memory. 
It is possible to use the assembler with a tape drive, using the 
RAM memory-based version (see Chapter 11). Of course, disk 
users can also assemble from RAM if they choose. But tape 
users must. 

There is a restriction when using a tape drive as the out- 
board memory device. You cannot link files together, forming 
a large, chained source code listing. The reason for this is that 
LADS, like all sophisticated assemblers, makes two passes 
through the source code. This means that tape containing the 
source code would have to be rewound at the end of the first 

ass. 
P It would be possible, of course, to have LADS pause at 
the end of pass 1, announce that it’s time to rewind the tape 
(see Atari notes below), and then, when you press a key, start 
reading the source code from the start of the tape. But this 
causes a second problem: The object code cannot then be 
stored to tape. A tape drive cannot simultaneously read and 
write. 

The best way to use LADS with a tape drive is to as- 
semble from source code in RAM memory and to use the .O 
(store object code to RAM pseudo-op). Then, when the fin- 
ished object code is in RAM, use a monitor program like 
“Tinymon” or “Micromon” to save it to tape. If you have ac- 
cess to a disk drive, you could construct a version of LADS 
which automatically directs object code to tape during assem- 
bly using the .D pseudo-op. 


Special Atari Notes 

The Atari version of LADs is a complete programming 
environment. Unlike the Commodore and Apple versions of 
LADS, where you use the BASIC program editor to write and 
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edit your source code, the Atari version has a special editor 
integrated into LADS itself. This is necessary because with 
Atari BASIC, you can only enter BASIC instructions. The line 


10 *= $0600 
is just as illegal as 
10 PRIMT “NAME”:INPPUT A# 


Both are coolly received with an error message. This syntax 
checking is fine when working with BASIC, but prevents the 
standard BASIC editor from accepting and storing LADS 
source code. Once the decision was made to create an entirely 
new source code editor, LADS became a self-contained pack- 
age. The BASIC cartridge is neither needed nor especially de- 
sired. Since LADS takes over the Atari, DOS is the only other 
program in memory, freeing up all the RAM ordinarily used 
by BASIC. 

One note: If you’d rather use a word processor or other 
text editor to enter and edit your source code, you can, as long 
as your editor will send out numbered statements, in ASCII, 
ending with 155’s (ATASCII carriage returns). Most Atari 
word processors conform to this; it you’re not sure, experiment 
with a short source code program. Be sure to end each source 
line with a carriage return. You can then load the file into the 
LADS editor or assemble directly from disk with the LADS 
D:filename command. 


Entering LADS 
The object code for Atari LADS is typed in with the Atari ver- 
sion of MLX, a machine language entry editor. See Appendix 
C for details. After you've typed it in, you can save LADS to 
disk under the filename AUTORUN.SYS. This will cause 
LADS to load and automatically run when you turn on (boot) 
your computer and disk drive. LADS as assembled requires at 
least 40K of memory. If you have access to a 40K Atari, you 
can reassemble the source code to almost any memory loca- 
tion you want (see “Programming Atari LADS” in Chapter 

1 


If you didn’t save LADS as AUTORUN.SYS, you need to 
load it from the DOS menu, then use menu selection M and 
run it at address 8000. If you bought the LADS source/object 
code disk, LADS will automatically load and run when you in- 
sert the disk and turn on your system. LADS will then print 
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its prompt, “LADS Ready.” This indicates that LADS is ready 
to receive commands or source code. 


Using the Editor 
You enter your ML source code just as you do in BASIC. To 
start a new line, type a line number, then the text, followed by 
the RETURN key. To delete a line, type the line number by it- 
self, then press RETURN. To insert a line between two exist- 
ing lines, just give it a line number that falls between the two. 
For example, line 105 will end up between line 100 and 110. 
The editor assumes that a line beginning with a line num- 
ber should be stored as part of your source code. If your line 
starts with leading zeros, these leading zeros will be erased. 
As the editor reads the line you've entered, it converts lower- 
case to uppercase, and inverse video characters to normal 
ones. It will not convert characters within double quotes 
(SHIFT-2) or after a semicolon, which marks the start of a 
comment. This line: 


0100 Ilda #”a”:jmp ($fffc); FFFC is the reset vector 
would become: 
100 LDA #“a”:JMP ($FFFC); FFFC is the reset vector 


If there is no line number, the editor assumes you've entered 
an editor command. Note that if a command has any param- 
eters after it, the command must be followed by a space. 


Atari Editor Commands 

LIST 

LIST all by itself displays the entire source program. LIST 150 
lists just line 150. LIST 110-160 shows all the lines between 
and including lines 110 through 160. If you want to list from a 
certain line number to the end of your program, just make the 
second line number very large, as in LIST 2000,9999, If you 
want to send a listing to the printer, use the SAVE command. 


SAVE device:filename 

SAVE works just like LIST, but sends the listing to the speci- 
fied device with the given filename. To list the entire source 
code to the printer, use SAVE P:. Be sure to put a space be- 
tween the command and the device. To LIST to cassette, use 
SAVE C:. When using disk, remember to use D:, for example, 
SAVE D:DEFS.SRC. We recommend that you do use an ex- 
tender, such as .SRC (see .FILE below). Check the DOS man- 
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ual for examples of legal filenames. You can also save a 
portion of the program. SAVE P:,100,150 would list lines 100 
to 150 to the printer. 


LOAD device:filename 

Load will replace any source code in memory with that read 
from the specified device. LOAD C: reads from tape, LOAD 
D:DEFS.SRC or LOAD D2:INDISK.SRC from disk. 


MERGE device:filename 

Merge is used to combine two programs. MERGE works just 
like ENTER does in BASIC. Instead of the keyboard being 
used to accept text, the editor looks to the file for input. After 
all the lines have been entered, the editor restores keyboard 
control. MERGE does not just append one program to the 
other. If there is a line 150 in the program to be merged, it 
will replace line 150 in memory. Therefore, MERGE can re- 
place selected lines, or add lines to the top or bottom of a pro- 
gram in memory. You can use SAVE to list to disk a part of a 
program, then use MERGE to add it to another program. You 
can have a whole disk full of commonly used routines, then 
use MERGE to combine the routines you need, speeding up 
the development of large ML programs. 


DOS 

If used with standard Atari DOS 2.05, this command will load 
and run DUP.SYS, the DOS menu. Remember that DUP.SYS 
will erase any program in memory if MEM.SAV is not used. 
Now you can manipulate files and display the disk directory. 
The DOS command makes an indirect jump through the DOS 
vector, location $0A. 


SYS address 

Transfers control with a JSR to the decimal address following 
the SYS. Always put a space between SYS and the address. If 
the routine ends with a RTS, control will return to the LADS 
editor. If a BRK ($00) is encountered, the editor will also be re- 
entered through the breakpoint, and the address where the 
BRK was found will be displayed. 


LADS (optional device:filename) 

Transfers control to the assembler. Although the editor merely 
manipulates text source code, it’s as if all of LADS was just 
another editor command. When LADS takes control, the left 
margin is set to 0, to give a full 40-column width for printout. 
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The left margin reverts to 2 when the editor is reentered. If 
you give the filename, as in LADS D:DEFS.SRC, then LADS 
will assemble the given source code from disk. This is like 
Commodore LADS’ default—assembling from disk. If you 
leave off the filename, LADS will behave as a RAM-based 
assembler, reading the current source code in memory and 
assembling it. Unlike Commodore or Apple LADS, where you 
change the source code and reassemble a separate version of 
LADS dedicated to RAM-based assembly, Atari LADS features 
both disk assembly and memory assembly in the same pro- 
gram, executing the appropriate code by checking RAMFLAG. 
For more information on this, see ‘“Notes on the Structure of 
Atari LADS” in Chapter 11. 

After an assembly is complete, or if you halt assembly by 
hitting the BREAK key, control will return to the editor. 


Error Handling 

Within the editor, any error will be displayed with Error - and 
the error number. This may be Error - 170 for file not found 
when you try to load a nonexistent file from the editor, or it 
may be an error returned from the assembler. Use your DOS 
or BASIC manual for a list of error numbers and error mes- 
sages. Any illegal command or a command the editor can’t 
understand will result in a Syntax Error. 


Special Notes for Cassette Users 

The filename for the cassette is C:. It is possible to assemble 
from cassette. When you see the .END, and hear the single 
tone, rewind the tape, press play, and then press any key to 
start the second pass. If you’re using linked files, each file 
must link to the next with .FILE C:. The last source file should 
end with .END C:. Assembling from tape is a cumbersome af- 
fair in any case. It might be preferable for tape drive users to 
keep all source code in memory, then assemble to memory, 
using the cassette only to store and retrieve source code. 


Pseudo-ops 

All the pseudo-ops described above for the Commodore and 
Apple versions are fully operative in Atari LADS. A few usage 
notes follow: 

.O This causes the assembler to POKE the object code into 
memory. Its converse is .NO. You must not overwrite the 
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assembler, which uses memory from $8000 to approximately 
$9FFF, During assembly, the labels are stored below $8000, 
descending towards $7000. Only a very long program will 
need memory between $7000 and $8000 when it is assembled. 
Also avoid overwriting your source code, which starts at 
$2000 and works its way up. 

A good location for very small routines is in page 6, 
$0600-$06FF. During assembly, all of page 5 will be cor- 
rupted. You can store your object code fairly safely at $5000 
or $6000, assuming your source code in memory is not too 
long. You can break your source code into modules, which 
will link together with .FILE and .END (see below). If you re- 
move all cartridges (or hold down OPTION when you turn on 
your machine, which removes BASIC on a 600XL or 800XL), 
there will be unused memory from $A000 to about $AFFF, 
less screen memory usage. 

An alternative to .O is the .D pseudo-op, which stores the 
object code to disk. This entirely avoids any memory con- 
straints. You can go to DOS and load the object code, then use 
the M. RUN AT ADDRESS option to execute and test it. 


.D If storing object code to disk, be sure to use the D:, as in .D 
D:LADS.OBJ. Storing object code to tape is risky, since an 
excessively long leader may be written. Besides, there is no 
facility for loading cassette object files without a BASIC loader 
program. After the assembly is complete, you can go to the 
DOS menu and use menu selection L to load your program, 
then selection M to run it. Menu selection M. RUN AT AD- 
DRESS requires a hexadecimal number without the dollar 
sign, 

.P This assumes an 80-column printer. Remember to use it 
with .S if you want the assembly listing to also go to the 
printer. If the printer is not turned on, assembly will abort and 
you will be returned to the editor with an Error - 138. 


.FILE Be sure to follow .FILE (or simply .F) with a space, then 
D:, followed by the filename. You may get occasional errors if 
you don’t use an extender. It is recommended that you add 
the extender .SRC, as in VALDEC.SRC (SRC for SouRCe). For 
example, .FILE D:EVAL.SRC 


-END Use this only at the end of the last file in a linked chain 
of source code. You can abbreviate it to .E. An example of 
proper usage is .END D:DEFS.SRC 
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Programming Aids 

Following are two utility programs, written in BASIC. Program 
A-1 will renumber an Atari LADS source program. Just run it 
and follow the prompts. Program A-2 partially converts a file 
from the Assembler Editor, EASMD, or MAC/65 assembler to 
the LADS syntax. It removes leading spaces after a line num- 
ber, trailing spaces at the end of a line, and tucks comments 
right next to the operand fields. Into the DATA statements 
starting at 500, insert the filenames of the files you want con- 
verted. Be sure to make END the last item in the DATA state- 
ments. To use LADS to assemble code written for one of these 
other assemblers, you must complete the conversion yourself 
by adjusting the pseudo-ops. See the descriptions of the LADS 
pseudo-ops at the start of this appendix. 


Program A-1. Atari LADS Renumber Utility 
18 GRAPHICS @:7 ."Renumber LADS":? ,"------- 


2H DIM T&( 24) ,.F& (20) ,.F2h(28) ,AS( 128) 

28 ? “Enter filename. Do not use D:":s:INPUT T 
$:F$="D:i":F 603) =TS 

4a F2$="D:TEMFP. "sF2S (LEN(F2$)+1)=TS 

o4 TRAP SHG: 0QPEN #1,4,8,F¢: TRAP 40070 

58 7 2:7 "We will renumber the entire file." 

7@# 7 2:2? “What Line number do you want the fi 
le":?7 "to start with?iedat4 LEFT "3s: INPUT 
T$:LNUM=VAL (TS) , 


aa 7 2:7 "What step do you want between":?7 "e 
ach line?id¢s LEFT "ss INPUT TS: INCR=VAL (T 
$) 


78 OGOPEN #2,98,8,"D: TEMP” 

igs’ TRAP 15@: INFUYT #1,A8: Z=1 

116 IF ASt(7Z.,Z)2>" " THEN TF Ze&LENtAS) THEN Z 
=7+1:GOTO 114 

12@ FRINT #2: ULNUM:A$(Z):_LNUM=LNUM+INCR 

146 GOTO iada 

138 IF PEER (C195)<2:135 THEN 2448 

16@ CLOSE #1:CLOSE #2: X1Q 32,41.08,98.,.F8:xIO 3 
2.#1,84,8.F 2% 

178 F :? "Finished! ":END 


280 7 “{RELLSError - "sPEFR (ISS) 3s" during re 
number" :END 
oaag F "CRELLi Cannot open "sF&: 7? "Error - "3sF 


FER €19S) :END 
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Program A-2. Atari LADS File Converter Utility 


= GRAPHICS #4 
4 DIM ASt1HG) . TEC ividd ,F&C 2a) ,F2e(58) 


18 READ Ts? TH: F$="Di":FS(S)=TH3IF TS="END" 
THEN END 
2a@ F2SE="D2 TEMP." :F28(LEN(F2$)+1)=TS 


ida OPEN #1,.4.8,F% 

lig) OF EN #2.9,@."D:TEMP" 

154 TRAP 17a: INPUT #1.A%21F AS{1,1)="8" THEN 
A$=AS (2) 

155 Z=LEN (AS) 

148 IF &8(Z.2)=" " THEN z=Z-i:GOTO 144 

142 AS=AS(1.72):7Z=1 

144 TF AS 2.2922" " THEN F=24+1:GOTO 144 

145 SZ=Z:2Z2=Z+1 

146 IF @#(Z.7)=" " THEN Z=Z+1:GOTO 146 

147 TS=AS(Z):AS=ASB(1.SZ):A48(SZ4+1) =TH: Z=LEN(A 
$#)21IF Te(i.i)=":" THEN 169 


ise TF AS(2.,72382"2" THEN Z=2-1:I1IF Z THEN 154 
132 S232: 2=2-1:1F 2°48 THEN 169 

154 1F ASGiz.Z)=" " THEN f=7-1:G60T0O 154 

156 FeS=AS (SZ :ABFHAGI1,ZISAS(Z+1)=TFS 

169 PRINT #2:68:GQTO 134 

17 


iy 
on 


CLOSE #1:CLOSE #27:X10 33,41,8,8,F¢:x1I0 
2.#1,4,0,F2%:GOTO 19 

ig# REM PUT YOUR FILENAMES HERE 

i9# REM E.G. DATA DEFS.SRC,EVAL.SRC,END 


Special Apple Notes 

Once you have typed in Apple LADS, you must BSAVE it to 
disk, The start address is $79FD and the length is $1674. To 
execute LADS you BRUN the binary file. After it loads and 
sets up its special wedge (see Chapter 11 for details on this 
wedge), you will be prompted with the BASIC prompt and a 
cursor. You can now type in your files and save them just as 
you would an Applesoft file. After saving the program to disk, 
you assemble it by typing: 


ASM filename 


Make sure you have a space between ASM and your filename. 
If you do not have the space, you will get a syntax error. With 
the wedge in, the BASIC tokenize routine does not execute, so 
you cannot type in BASIC programs after you BRUN LADS. 
Otherwise, all the features of Apple LADS operate as de- 
scribed under the general instructions at the start of this 
chapter. 
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LADS Object Code 


LADS will run on the Commodore 64, VIC-20, PET/CBM, 
Atari, and Apple computers. If you have a Commodore or 


Atari you should use the ‘“MLX” machine language editor to 
enter the object code for LADS. Complete instructions on how 
to enter the object code using MLX, as well as the MLX pro- 
grams, can be found in Appendix C. PET/CBM owners may 
find it convenient to use their built-in machine language mon- 
itor to make the changes shown in Programs B-3a and B-3b. 
Apple users should use the Apple built-in monitor and enter 
the hex data found in Program B-5. Additional instructions for 
the use of LADS can be found in Appendix A, ‘How to Use 
LADS.” 
LADS is nearly 5K long, and for those who prefer not to 
type it in, it can be purchased on a disk by calling COMPUTE! 


Publications toll free at 1-800-334-0868. Be sure to state 
whether you want the Commodore, Atari, or Apple disk. 


Program B-1. Commodore 64 LADS: MLX Format 


11880 
11006 
11812 
118618 
11624 
11030 
11036 
11042 
11948 
11654 
11060 
11666 
11872 
11878 
11084 
11098 
11996 
11192 
11198 
11114 
11128 
11126 
11132 
11138 


2169,000,160,948,153,113,123 
:862,136, 208, 250,169, 248,947 
2133,176,133,955,141,135,909 
:062,169,042,133,177,133,214 
:856,141,136,962,169,861,869 
:141,157,662,185,090,894,859 
:201,032,240,9012,176,9803,188 
7024,105,064,153,158,861,879 
:208,076,025,943,153,158,175 
:061,200,185,090,004, 201,185 
:932,208,226,136,132,183, 201 
:832,248,049,032,184,950,141 
:169,000,141,119,962,932,9075 
:194,051,173,138,962, 208,838 
:@63,032,133,956,169,238,247 
2032,2180,255,169,076,032,988 
:210,255,169,965,0932, 210,805 
:255,169,8068,832,218,255,059 
:169,083,032,218,255,832,113 
2133,056,173,128,062, 208,698 
:811,169,068,133,251,169,145 
2:861,133,252,032,219,858,097 
:173,122,062,133,253,141, 248 
2115,962,173,123,862,133,038 
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11144 :254,141,116,062,032,225,198 
11158 :255,173,119,8962,240,003,226 
11156 :076,168,046,032,184,951,113 
11162 :169,900,141,127,062,141,826 
11168 :137,962,172,138,062,208,171 
11174 :983,976,198,043,149,158,016 
11180 :962,173,156,962, 248,912,109 
11186 :032,142,056,032,063,056,647 
11192 :8932,193,956,032,863,056,014 
11198 :173,149,862,249,003,032,081 
11204 :059,055,076,106,950,173, 283 
11219 :114,962,249,023,201,003,077 
11216 :208,114,169,061,141,114,187 
11222 :962,173,071,061,208,104,125 
11228 :169,908,024,109,113,962,193 
11234 :141,113,8062,876,185,945,080 
11248 :173,138,0962,248,057,160,038 
11246 :255,200,185,068,961, 248,223 
11252 :946,153,159,961,281,632,119 
11258 :298,243,200,185,868,961,191 
11264 :201,961,208,003,076,233,014 
11270 :945,162,000,142,158,962,863 
11276 :138,153,150,961,185,068,255 
11282 :961,240,8068,157,068,961,101 
11288 :232,2900,076,8916,044,157, 237 
11294 :868,961,976,198,043,032,252 
11300 :130,048,032,036,948,076,150 
11386 :198,043,173,989,061,201,839 
11312 :864,176,006,173,0909,061,196 
11318 :238,137,062,973,128,141,965 
11324 :128,962,032,207,848,076,093 
11336 :197,044,160,000,140,127,222 
11336 :862,173,8071,061,201,832,160 
11342 :248,903,076,071,047,185,188 
11348 :072,061,201,965,144,803,118 
11354 :238,127,862,153,989,061,952 
11368 :200,185,972,061,240,022,108 
11366 :153,989,061,201,065,144,047 
11372 :903,238,127,962,200,185,155 
11378 :072,961,249,906,153,089,223 
11384 :961,676,112,044,136,148,177 
11398 :126,962,173,128,862,208,117 
11396 :964,173,127,062, 208,162,160 
11492 :169,989,133,251,169,061, 242 
11488 :133,252,168,000,173,089,183 
11414 :961,201,048,176,907,6024,155 
11420 :238,251,144,8002,230,252,241 
11426 :177,251,249,8016, 201,041,064 
11432 :2489,012,201,044,240,808,145 
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11438 :281,032,248,004,200,076,159 
11444 :162,944,072,152,872,169,983 
11458 :8800,145,251,032,219.950.115 
11456 :104,168,1604,145,251,173,113 
11462 :889,961,201,9035, 248,063,119 
11468 :201,040,240,923,173,114,227 
11474 :862,291,908, 248,055,201, 209 
11489 :003,208,113,169,008,024,229 
11486 :199,113,962,141,113,062,054 
11492 :976,185,045,172,126,062,126 
11498 :185,089,861,201,041,248,027 
11504 :816,173,114,962, 201,661,039 
11510 :208,009,169,9016,924,199,9013 
11516 :113,062,141,113,062,173,148 
11522 :114,862,201,906, 249,083,196 
11528 :076,126,045,976,153,045,017 
11534 :173,138,8962,208,003,076,162 
11540 :126,045,056,173,122,062,892 
11546 :229,253,072,173,123,962,176 
11552 :229,254,176,014, 281,255,137 
11558 :240,004,194,976,6019,048, 098 
11564 :104,016,012,076,062,8045,183 
11570 :249,004,104,976,010,048,029 
11576 :104,816,983,876,8010,048,057 
11582 :856,233,902,141,122,862,166 
11588 :169,060,141,123,062,8076,127 
11594 :126,045,172,126,8062,136,229 
11606 :185,989,061, 201,944, 298,190 
11696 :004,200,076,242,046,173,059 
11612 :113,962,201,976,288,003,243 
11618 :976,135,845,173,123,962, 209 
11624 :208,085,173,114,862,281,179 
11638 :006,176,013,201,002, 248, 236 
11636 :009,169,964,024,189,113,032 
11642 :862,141,113,962,032,130,158 
11648 :055,832,168,955,076,233,235 
11654 :945,172,126,962,185,089,045 
11669 :8961,201,941,208,005,169,9057 
11666 :108,141,113,962,8076,227,195 
11672 :945,173,090,961,201,934,244 
11678 :208,806,173,991,061,141,078 
11684 :122,062,173,114,062, 201,130 
11699 :801,208,289,169,008,024,921 
11696 :109,113,062,141,113,062,908 
11792 :076,126,045,932,138,055,134 
11768 :976,233,045,173,114,862,123 
11714 :201,8982,240,004,201,067,081 
11720 :208,012,173,113,062,024,624 
11726 :1805,008,141,113,962,076,199 
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11732 :227,945,201,006,176,089,108 
11738 :173,113,862,024,1805,012,195 
11744 :141,113,962,032,130,855,245 
11758 :932,194,855,173,138,962,116 
11756 :208,903,876,165,846,173,139 
11762 :156,962,208,003,976,165,144 
11768 :846,173,158,962,208,962,189 
11774 :173,152,962,248,042,169,868 
11780 :820,056,229,211,141,139,932 
11786 :962,932,204,255,162,004,217 
11792 :632,201,255,172,139,862,189 
11798 :816,0905,169,8002,076,831,056 
11804 :046,169,032,032,218,255,004 
11818 :136,208,250,8932,204,255,0895 
11816 :162,001,032,198,255,169,889 
11822 :@28,133,211,169,158,133,094 
11828 :251,169,861,133,252,832,182 
11834 :946,956,169,838,856, 229,132 
11848 :211,141,148,862,169,839,849 
11846 :133,211,173,152,062,248,617 
11852 :631,032,204,255,162,9804,252 
11858 :032,281,255,172,148,062,176 
11864 :248,019,048,808,169,832,983 
11878 :932,210,255,136,208,258,161 
11876 :832,204,255,162,001,8032,618 
11882 :198,255,032,155,956,173,207 
11888 :150,962,240,017,201,001,615 
11894 :208,905,169,960,076,127,251 
11986 :046,169,062,032,210,255,139 
11996 :832,192,956,173,159,862,836 
11912 :240,019,032,963,056,169,203 
11918 :959,032,210,255,169,0908,899 
11924 :133,251,169,0902,133,252,964 
11938 :932,946,056,032,133,056,253 
11936 :173,119,862,298,883,076,933 
11942 :140,043,173,138,962,208,162 
11948 :927,238,138,962,173,115,157 
11954 :962,133,253,173,116,8962,299 
11968 :133,254,032,2804,255,169, 287 
11966 :981,032,195,255,832,248,185 
11972 :949,976,061,043,032,204,149 
11978 :255,169,001,632,195,255,985 
11984 :169,002,032,195,255,173,910 
11998 :152,962,249,921,032,204,157 
11996 :255,162,004,8032,201,255,105 
12002 :169,013,032,218,255,032,169 
12998 :204,255,169,004,932,195,967 
12814 :255,076,116,164,185,0889,999 
12028 :961,201,9888,240,191,136,947 
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12826 
12832 
12838 
12844 
12950 
12856 
12662 
12868 
12074 
12088 
12086 
12092 
12898 
12184 
12119 
12116 
12122 
12128 
12134 
12149 
12146 
12152 
12158 
12164 
12178 
12176 
12182 
12188 
12194 
12209 
12296 
12212 
12218 
12224 
12238 
12236 
12242 
12248 
12254 
12268 
12266 
12272 
12278 
12284 
12298 
12296 
123982 
12398 
12314 


:136,185,989,061,201,941,195 
2208 ,983,076,231,044,173,223 
:123,062, 208,015,173,114,189 
:@62,201,8002,240,982,201,032 
2:805,248,078,201,001,248,815 
:122,173,114,962, 201,901,185 
:268,6012,173,113,662,024,118 
:105,924,141,113,962,0976,845 
:227,845,173,114,962,201,096 
2805 ,2408,008,169,049,832,0839 
:218,947,076,071,047,173,174 
:113,862,824,105,028,141,921 
:113,062,076,227,045,932,1089 
:167,056,032,142,956,169,182 
:887,133,251,169,962,133,145 
:252,032,046,856,932,133,123 
:856,076,233,045,173,123,028 
:062,288,068,173,114,062,9815 
£281,802, 208,012,169,016,198 
:824,109,113,062,141,113,158 
:862,076,126,845, 281,081,113 
2248,016, 201,083, 2409,8012,964 
:201,6085,240,008,169,858,931 
:032,218,047,876,071,047,111 
:169,020,024,109,113,862,123 
:141,113,062,185,091,961,9829 
7201,089,208,010,173,113,176 
:062,291,182,240,003,0976,152 
2:825,047,076,126,0945,173,142 
2114,962,201,902,288,812,255 
:169,024,024,109,113,062,163 
2141,113,062,976,227,945,876 
:201,001,248,816, 201,003,980 
2248,012,201,095,249,908,138 
2:169,051,032,218,847,876,823 
:871,9047,169,928,824,1809,140 
:113,862,141,113,062,976,999 
3227,845,141,139,862,148, 262 
:141,962,142,148,062,169,174 
:186,932,218,255,194,170,161 
:194,168,152,072,138,872,172 
3152,032,205,189,173,139,196 
:962,172,141,8062,174,148,229 
:962,096,160,8900,152,153,1987 
7968, 061, 200,192,088, 208,843 
:248,096,8032,133,856,032,893 
:167,0856,032,142,856,169,124 
:198,133,251,169,061,133,197 
2252,032,046,056,032,133,865 
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12329 
12326 
12332 
12338 
12344 
12359 
12356 
12362 
12368 
12374 
12388 
12386 
12392 
12398 
12464 
12418 
12416 
12422 
12428 
12434 
12448 
12446 
12452 
12458 
12464 
12479 
12476 
12482 
12488 
12494 
12508 
12586 
12512 
12518 
12524 
125398 
12536 
12542 
12548 
12554 
12568 
12566 
12572 
12578 
12584 
12599 
12596 
12662 
12688 
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2:856,076,126,045,160, 255, 238 
:208,185,068,9061, 248,086,119 
3201,032,288, 246, 200,200,107 
2140,132,862,8056,165,176,013 
:237,132,862,133,176,165,193 
2177, 233,006,133,177,160,174 
:8900,185,068,061,9073,128,071 
:145,176,208,185,068,9861,141 
2261 ,832,248,005,145,176,111 
:976,076,048,200,185,068,227 
:061,201,061,248,059,136,982 
2165,253,145,176, 208,165,178 
2254,145,176,174,132,062,823 
:202,160,000,189,868,961,022 
7249 ,008,153,068,861,232,118 
:209,076,113,048,153,068,612 
3961 ,096 ,0932,133,956,8932,926 
:142,056,032,167,056,169, 244 
2255,133,251,169,861,133,118 
2252,032,046,056,932,133,185 
:956,076,202,048,136,149,042 
:133,962,173,128,062,208,156 
2823, 208, 280,209,149,121,924 
:862,169,068,024,109,121,211 
2:862,133,251,169,061,185,189 
:8600,133,252,032,219,859,180 
:172,133,862,173,122,062,144 
:145,176,173,123,962, 200,849 
:145,176,194,184,076,233,914 
2:045,173,135,862,133,178,164 
7173,136,062,133,179,832,159 
2221,049,169,255,141,155,184 
:962,956,165,176,229,178,9866 
2165,177,229,179,176,999,231 
2162,008,056,165,178, 233,886 
:802,133,178,165,179, 233,108 
:968,133,179,169,000,177,129 
:178,048,8012,165,178,208,9819 
:002,198,179,198,178, 232, 223 
:976,253,048,165,178,141,193 
2142,962,165,179,141,143,080 
:862,177,178,205,1209,962,858 
2240 ,003,076,063,849,232,179 
:142,121,862,162,8081,173,183 
:137,962, 240,004, 200,932,283 
2221,049, 200,185,989, 061,883 
3248 ,083,201,048,144,079,879 
2232, 269,178,240, 241,173,651 
2142,962,133,178,173,143,127 
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12614 :962,133,179,032,221,849,234 
12620 :676,225,048,173,155,062,847 
12626 :948,001,996,173,138,062,088 
12632 :208,062,240,023,032,167,248 
12638 :856,032,142,956,032,963,219 
12644 :656,169,239,133,251,169,993 
12658 :861,133,252,032,046,056,174 
12656 :932,133,956,184,104,173, 282 
12662 :113,962,941,831,201,916,9070 
12668 :240,008,173,1508,062,208,197 
12674 :883,976,227,045,076,126,171 
12686 :645,236,121,062,240,803,075 
12686 :876,963,049,238,155,962,017 
12692 :248,903,032,239,049,172,186 
12698 :121,962,173,137,962,249,181 
12784 :001,200,177,178,141,122,211 
12718 :062,200,177,178,141,123,023 
12716 :862,173,158,962,248,0108,191 
12722 :261,962,288,030,173,123,147 
12728 :862,141,122,862,173,149,125 
12734 :8962,249,019,024,173,147,087 
12748 :062,109,122,862,141,122,046 
12746 :962,173,148,062,109,123,111 
12752 :862,141,123,862,173,138,139 
12758 :962,268,001,096,076,963,298 
12764 :849,165,178, 208,902,198, 252 
12778 :179,198,178,896,032,167,852 
12776 :056,169,8057,133,251,169,943 
12782 :862,133,252,032,046,856,051 
12788 :832,133,956,096,932,204,829 
12794 :255,169,881,032,195,255,133 
12808 :169,001,133,184,169,908,152 
12896 :133,186,169,003,133,185,047 
12812 :169,158,133,187,169,861,113 
12818 :133,188,032,193,225,096,117 
12824 :169,902,133,184,169,988,177 
12838 :133,186,169,802,133,185,878 
12836 :169,150,133,187,169,961,137 
12842 :133,188,032,193,225,8032,9077 
12848 :204,255,696,169,904,133,141 
12854 :184,169,064,133,186,169,131 
12868 :999,133,183,032,193,225,858 
12866 :8032,204,255,8096,032,204,121 
12872 :255,169,000,133,147,133,141 
12878 :144,169,008,133,186,169,119 
12884 :158,133,187,169,961,133,149 
12898 :188,032,117,225,032,204,1208 
12896 :255,165,843,133,167,165,000 
12902 :844,133,168,096,160,000,191 
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12968 :162,255,232,185,028,060,006 
12914 :205,968,061,2408,810,200,130 
12928 :200,290,224,057, 208,249,225 
12926 :876,232,043,2608,185,8028,122 
12932 :860,205,0969,961,240,006,8985 
12938 :200,200, 268,224, 248,238,168 
12944 :200,185,028,969,2905,878,124 
12958 :861, 240,005,200, 208,210,059 
12956 :248,224,173,071,861,201,162 
12962 :832,249,004,261,000,298,079 
12968 :213,189,196,060,141,114,957 
12974 :862,188,252,060,140,113,221 
12988 :962,076,201,8043,162,881,213 
12986 :832,198,255,162,996,832,183 
12992 :228,255, 282,208, 258,832,087 
12998 :228,255,2801,172,240,014,828 
13984 :169,181,133,251,169,061,144 
13818 :133,252,032,046,956,076,037 
130916 :200,046,096,160,900,177,127 
13022 :251,240,004,200,076,221,198 
13828 :850,140,178,861,136,169,194 
13034 :800,141,122,962,141,123,0855 
13948 :062,162,001,142,140,062,041 
13846 :177,251,841,015,141,176,023 
13852 :861,141,179,061,169,000,095 
13058 :141,177,961,141,180,061,251 
13064 :202,2408,918,032,045,851,084 
13078 :173,176,061,141,179,961,837 
13076 :173,177,961,141,189,061,945 
13082 :676,008,051,238,140,062,989 
13088 :174,1408,862,032,984,051,863 
13994 :136,206,178,961, 208,202,005 
13188 :996,024,014,176,961,046, 285 
13106 :177,061,014,176, 961,046,873 
13112 :177,,061,9024,173,179,061,219 
13118 :199,176,961,141,176,061,918 
13124 :173,180,061,1909,177,061,961 
13130 :141,177,961,9014,176,861,192 
13136 :846,177,061,9096,024,173,145 
13142 :176,061,109,122,962,141,245 
13148 :122,062,173,177,861,189,928 
13154 :123,062,141,123,962,096,193 
13160 :832,254,047,160,900,149,225 
13166 :128,962,140,159,962,149,933 
13172 :150,062,148,149,962,173,984 
13178 :154,862,208,912,0832,228,95¢ 
13184 :255,141,117,862,932,228,195 
13198 :255,141,118,962,8032,228, 262 
13196 :255,2808,908,032,231,052,158 
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13202 :104,1894,076,148,043,201,946 
13208 :832,240,239,8076,166,951,188 
13214 :832,228,255,298,803,876,192 
13220 :231,052,281,058, 208,983,149 
13226 :876,0889,052,201,959,288,978 
13232 :115,140,139,962,173,152,189 
13238 :962,240,685,141,159,962,163 
13244 :173,139,962,240,896,032,072 
13258 :238,051,076,922,952,832,153 
13256 :228,255,246,014, 281,127,241 
13262 :144,003,032,094,052,153,172 
13268 :968,961,200,076,199,951,999 
13274 :832,142,056,032,963,956,987 
13280 :932,155,956,8032,133,956,176 
13286 :169,000,141,139,862,8976,849 
13292 :922,052,141,159,062,141,845 
13298 :139,062,160,909,032,228,995 
13304 :255,208,607,153,0898,002,105 
13310 :172,139,8062,996,016,803,239 
13316 :932,022,055,153,9008,002,012 
13322 :200,076,246,951,032,228,9875 
13328 :255,248,003,076,014,052,144 
13334 :832,231,952,173,139,962,199 
13348 :298,005,184,194,976,146,153 
13346 :@43,096,201,177,248,091,114 
13352 :2801,179,248,095, 201,178,102 
13358 :208,003,238,149,962,201,139 
13364 :172,208,003,076,147,052,198 
13378 :261,8046, 249,022, 281,836,036 
13376 :248,021,201,127,144,803,032 
13382 :832,094,052,153,968,861,9618 
13388 :288,076,158,0851,141,154,088 
13394 :862,696,976,139,953,153,149 
13460 :968,961,200,0876,906,053,940 
13406 :956,233,127,141,131,862,076 
13412 :162,255,2806,131,862,248,132 
13418 :008,232,189,158,168,816,1061 
13424 :250,948,243,232,189,158, 208 
13439 :169,048,007,153,8968,061,193 
13436 :200,976,115,052,041,127,223 
13442 :896,169,902,141,158,062,238 
13448 :876,158,9051,169,001,141,229 
13454 :150,062,076,158,051,932,159 
13460 :158,051,173,138,962,248, 282 
13466 :811,169,8042,632,218,255,1085 
13472 :8@32,155,956,832,133,956,112 
13478 :173,128,862,268,032,160,161 
13484 :000,185,068,961, 201,932,207 
13498 :248,004,200,076,173,052,155 
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13496 :200,132,251,169,968,024,064 
13592 :101,251,133,251,169,961,132 
135808 :1805,000,133,252,832,219,169 
13514 :850,173,138,962, 240,008,195 
13520 :173,151,862,240,003,032,1@1 
13526 :213,854,173,122,062,133,283 
13532 :253,173,123,062,133,254,194 
13538 :1804,1604,976,148,043,153,078 
13544 :968,061,200,192,980,208,917 
13558 :248,153,968,961,032,228,004 
13556 :255,832,228,255, 240,006, 236 
13562 :169,009,141,154,962,096,184 
13568 :169,001,141,119,862,896,876 
13574 :162,000,9032,228,255,240,155 
13589 :044,201,058, 240,040, 291,028 
13586 :832,249,243,201,059, 240,089 
13592 :832,201,044,240,015,201,245 
13598 :041,240,011,157,129,8061,157 
13604 :232,153,868,061,208,076,958 
136198 :808,053,142,129,862,153,877 
13616 :868,861,200,932,077,053,827 
13622 :876,158,9051,141,139,062,169 
13628 :169,000,142,129,9062,153, 283 
13634 :868,961,032,977,053,173,818 
13648 :139,862,976,161,951,169,218 
13646 :900,141,122,862,141,123,155 
13652 :862,178,014,122,862,846,048 
13658 :123,962,914,122,062,046,007 
13664 :123,062,9014,122,962,846,9813 
13670 :123,962,014,122,062,046,819 
13676 :123,062,189,129,861,201,165 
13682 :865,144,882,233,987,041,094 
13688 :@15,8013,122,062,141,122,983 
13694 :@62,232,236,129,062, 298,031 
13788 :209,238,128,962,169,081,171 
13766 :996,192,800,2409,014,174,886 
13712 :138,062,208,009,072,152,617 
13718 :972,032,8936,048,104,168,898 
13724 :1804,153,968,861,200,032,9086 
13730 :228,255,153,968,061,200,193 
13736 :201,866,208,104,169,009,148 
13742 :141,144,062,173,138,062,126 
13748 :240,023,148,141,062,173,191 
13754 :156,062,240,015,032,142,965 
137680 :856,032,063,056,0932,103,822 
13766 :856,032,063,056,172,141, 2806 
13772 :962,832,228,255,153,868, 234 
13778 :861,208, 201,032,208, 245,133 
13784 :932,228,255,153,868,061,245 
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13799 
13796 
13882 
138988 
13814 
13828 
13826 
13832 
13838 
13844 
13858 
13856 
13862 
13868 
13874 
13886 
13886 
13892 
13898 
13904 
13919 
13916 
13922 
13928 
13934 
13949 
13946 
13952 
13958 
13964 
13979 
13976 
13982 
13988 
13994 
14000 
14006 
14912 
14818 
14924 
14836 
14836 
14942 
14848 
14954 
14868 
14866 
14872 
14978 


2200, 201,834,208, 969,932,198 
:228,255, 208,883 ,9076,186,168 
2054, 201,858, 208,903,976, 966 
2189,054,201,059,288,012,195 
:832,238,051,174,152,862,187 
:142,159,962,076,186,054,163 
:201,8034,208,903,076,227,239 
:053,174,138,862,208,8989,149 
:032,032,956,076,227,853,234 
:976,139,057,153,068,961,962 
:179,148,141,8962,032,248,651 
2:955,172,141,062,2088,076, 226 
:227,053,162,000,142,145,255 
:962,157,169,961, 232,173,138 
:145,062,208,117,032,228,074 
:255,248,067,201,8958,249,093 
2963, 291,859, 208,012,832,125 
:238,051,174,152,062,142,119 
:159,962,076,126,954,141,189 
:109,061,173,138,062,208,963 
:813,173,199,061,201,832,163 
2288, 211,832,8032,856,876,195 
:949,054,173,109,061,153,185 
78968 , 961, 2086, 201 ,8032,249,138 
2024, 201,000, 249,028,201 ,028 
3058, 249,016,157,169,061,049 
2232,876,849,054, 238,145,148 
:862,141,119,061,076,079,145 
:054,169,169,133,251,169,9855 
:861,133,252,149,141,962,161 
:832,219,050,174,122,062,837 
:032,248,8055,172,141,862,994 
:169,008,162,005,157,169,0852 
:061,202,208,250,076,849,242 
:054,173,138,062,208,003,940 
2832 ,032,056,173,110,961,128 
2281,058, 240,003,032, 231,179 
:052,141,154,862, 238,158,225 
:962,104,1804,173,138,862, 069 
2249 ,008,173,156,862,248,9855 
:903,076,1808,046,076,148,143 
:843,173,138,862,201,902, 063 
:208,001,096,932, 204,255, 246 
2162 ,6002,632,261,255,956,164 
:173,122,962,229,253,141,186 
:120,062,173,123,862,229,237 
2254,141,121,962,169,000,221 
:832,216,255,173,120,062,976 
2208,0603,206,121,062,286,036 
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14884 
14090 
14696 
14182 
141988 
14114 
14128 
14126 
14132 
14138 
14144 
14159 
14156 
14162 
14168 
14174 
14188 
14186 
14192 
14198 
14264 
14219 
14216 
14222 
14228 
14234 
14249 
14246 
14252 
14258 
14264 
14278 
14276 
14282 
14288 
14294 
14380 
14306 
14312 
14318 
14324 
14338 
14336 
14342 
14348 
14354 
14369 
14366 
14372 
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3120,962, 208, 238,173,121,158 
2062, 208, 233,032,294,255,236 
:162,001,8032,198,255,996,248 
2056, 233,127,141,131,962,004 
:162,255,286,131,062,249, 860 
2808, 232,189,158,1608,816,829 
:250,048,243,232,189,158,136 
:168,848,007,153,000,082,160 
2200 ,876,943,955,941,127,0882 
:8996,169,900,162,900,185,149 
2868 ,961, 201,043, 240,084,169 
:200,076,963,055, 208,185,881 
2868 ,061,9032,099,055,176,946 
:818,157,129, 061, 232,876, 243 
:874,055,201,058,176,006,146 
2956, 233,048,856, 233,208,168 
:896,169,000,157,129,861, 209 
:169,129,133,251,169,861,250 
2133,252,0932,219,050,173,283 
:122,862,141,147,862,173,957 
:123,962,141,148,062,096,244 
:173,138,062,208,004,032,235 
:832,056,8096,173,156,062,199 
2249,017,032,204,255,162,028 
:901,032,198,255,174,113,153 
2862,032,072,056,032,863,215 
:856,174,113,862,9832,248,9877 
2855,096,173,138,962,298,130 
:904,032,032,056,096,173,953 
:156,962,240,006,174,122,170 
2962 ,032,072,056,174,122,198 
:862,876,248,8055,173,138,174 
2962,208,007,032,032,056,081 
:832,032,056,096,173,156, 235 
2862, 248,006,174,122,062,186 
:832,072,056,174,122,062,229 
:832,248,055,173,156,062,178 
:249,814,173,157,862, 248,988 
7903 ,032,963,056,174,123,171 
2862 ,032,072,8056,174,123,245 
2862 ,076,248,055,142,121,189 
:062,173,153,962, 248,095,177 
2160 ,000,138,145, 253,173,101 
2151,962,240,922,032, 204,205 
:255,162,002,832,201,255,151 
2173,121,062,8032,218,255,1983 
:932,204,255,162,801,032,198 
2198,255,924,169,901,191,010 
:253,133,253,169,880,101,177 
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14378 :254,133,254,8096,160,0900,171 
14384 :177,251,248,018,9032,210, 200 
14390 :255,932,186,056, 200,076,891 
14396 :848,856,996,169,032,032,237 
14402 :218,255,8032,186,856,096,133 
14498 :142,1480,062,173,157,862,849 
14414 :248,011,138,032,114,6057,158 
14426 :832,227,856,174,148,862,007 
14426 :896,169,8988,032,205,189,9813 
14432 :832,227,956,174,148,862,819 
14438 :8996,173,157,062,248,014,076 
14444 :165,254,932,114,057,165,127 
14458 :253,932,114,057,932,022,112 
14456 :857,996,166,253,165,254,087 
14462 :8932,205,189,032,022,857,151 
14468 :896,169,013,032,210,255,139 
14474 :832,186,056,096,174,117,031 
14488 :862,173,118,062,032,205,9828 
14486 :189,032,8976,957,696,169,981 
14492 :868,133,251,169,861,133, 263 
14498 :252,032,846,8056,096,169,845 
14504 :007,032,210,255,169,818,091 
14518 :032,210,255,032,155,056,146 
14516 :169,913,032,210,255,996,187 
14522 :174,138,962,208,901,096,097 
14528 :174,152,062,208,001,896,117 
14534 :141,139,862,032,204,255,097 
14546 :162,004,032,201,255,173,007 
14546 :139,962,832,218,255,032,172 
14552 2204, 255,162,981 ,032,198,044 
14558 :255,173,139,962,096,174,097 
14564 :138,962,208,901,996,174,139 
14578 :152,062,208,981,996,932,017 
14576 :2804,255,162,004,032,201,874 
14582 :255,173,157,862, 240,909,118 
14588 :173,148,962,832,114,057,962 
14594 :876,013,957,169,90880,174,235 
14698 :148,962,932,205,189,832,156 
14686 :204,255,162,8901,832,198,898 
14612 :255,8096,174,138,862,298,185 
14618 :0901,096,174,152,962,208, 207 
14624 :081,8996,032,204,255,162,014 
14630 :984,032,201,255,174,157,093 
14636 :962,248,9013,165,254,032,042 
14642 :114,057,165,253,032,114,017 
14648 :857,076,067,057,165,254, 220 
14654 :166,253,832,205,189,932,171 
14660 :204,255,162,001,832,198,152 
14666 :255,996,174,138, 862,208,239 


369 


Appendix B: LADS Object Code 





14672 :801,096,174,152,062,208,995 
14678 :001,0996,032,294,255,162,968 
14684 :004,932,201,255,173,118,197 
14699 :062,174,117,062,032,205,238 
14696 :189,932,204,255,162,9081,179 
14762 :932,198,255,096,072,041,036 
14788 :915,168,185,052,961,178,255 
14714 :104,974,074,074,074,168,178 
14728 :185,952,061,032,210,255,155 
14726 :138,032,210,255,096,201,042 
14732 :070,208,008,032,238,057,241 
14738 :184,184,076,140,043,201,846 
14744 :128,208,006,032,071,858,143 
14750 :076,146,057,201,068, 208,146 
14756 :903,076,127,058, 281,880,197 
14762 :208,003,076,244,058,281,192 
14768 :978,208,083,076,953,659,141 
14774 :2801,879,288,003,076,932,013 
14788 :959,201,083,208,003,076,05@ 
14786 :237,959,281,872,208,0803, 206 
14792 :876,007,860,153,968,061,113 
14798 :832,142,8056,032,8063,856,975 
14804 :032,103,9056,832,167,056,146 
14810 :832,155,056,169,987,133,982 
14816 :251,169,962,133,252,032,099 
14822 :946,056,032,133,956,076,117 
14828 :807,959,032,228,255,201,25@ 
14834 :932,240,003,076, 238,057,120 
14840 :169,000,032,228, 255,281,180 
14846 :900,249,014,201,127,144,212 
14852 :8803,032,094,9052,153,068,15¢ 
14858 :061,209,076,258,057,132,018 
14864 :183,1689,000,185,968,061,161 
14878 :248,887,153,158,861, 200,065 
14876 :876,019,058,173,138,062,042 
14882 :208,9096,932,103,056,032,215 
14888 :863,956,8032,155,956,032,178 
14894 :133,956,032,248,049,162,214 
14998 :9801,032,198,255,032,228,030 
14996 :255,932,228,255,032,231,067 
14912 :@52,162,000,142,119,862,089 
14918 :996,169,046,032, 219,255,119 
14924 :169,969,032,219, 255,169,212 
14938 :878,032,210,255,169,968,126 
14936 :932,219,255,169,032,932,050 
14942 :218,255,032,228, 255,632,882 
14948 :248,057,173,138,862,240,250 
14954 :803,238,119,062,238,138,136 
14969 :962,173,115,062,133,253,142 
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14966 
14972 
14978 
14984 
14998 
14996 
15862 
15868 
15814 
15828 
15826 
15032 
15938 
15944 
15850 
15856 
15962 
15868 
15974 
15080 
15686 
15892 
15998 
15164 
15118 
15116 
15122 
15128 
15134 
15146 
15146 
15152 
15158 
15164 
15178 
15176 
15182 
15188 
15194 
15298 
15286 
15212 
15218 
15224 
15238 
15236 
15242 
15248 
15254 


:173,116,962,133,254,932,128 
:184,051 ,896,173,138,962, 236 
:2489,030,032,228,255,153,044 
2968, 961,168,000 ,032,228,173 
:255,249,020,201,127,144,195 
2:0093,032,994,052,153,868,9838 
2861,153,158,861, 208,976,087 
:149,8058,076,007,059,169,157 
:844,153,158,061,209,169,175 
:989,153,158,861,208,169,217 
:044,153,150,061, 209,169,187 
:887,153,150,061,200,132,199 
:183,932,155,656,832,133,013 
:056,238,151,962,032,024, 247 
:050,162,092,032,201,255,136 
3173,115,962,832,210,255,831 
:173,116,862,632,219,255,638 
:032,204,255,162,901,932,138 
2198,255,832,205,959,832,239 
:231,052,104,104,162,908,117 
2142,119,062,976,1490,843,052 
:173,138,062,249,914,932,135 
:051,850,238,152,962,032,9867 
2:264,255,162,8081,032,198,984 
£255,032,228,255, 248,007,255 
2201 ,8058,249,896,876,007,088 
:0@59,932,231,052,104,194,0888 
2162 ,0080,142,119,862,976,073 
:140,043,169,046,032,219,158 
:255,169,079,8032,218,255,612 
7832,133,056,169,981,141,962 
2153 ,062,076,007,8059,173,866 
:138,062,240,205,9032,228,191 
2255,201 ,880, 248,912, 201,025 
:879,240,058, 201,083,248,199 
:186,2801,072,240,076,169,168 
:846,932,218,255,169,078,190 
:032,219,255,169,988,832,894 
2216,255,032,133,956,206,214 
:152,862,832,204,255,162,195 
:604,032,201,255,169,813,008 
:932,219,255,169,984,032,042 
2195,255,032,204,255,162,193 
2061 ,032,198,255,076,007,177 
:859,169,046,932,218,255,129 
:169,8978,032,219,255,169,021 
:8979,032,218,255,832,133,1i11 
2:856,169,009,141,153,962,213 
:876,087,959,169,946,032,027 
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15260 
15266 
15272 
15278 
15284 
15298 
15296 
153982 
153608 
15314 
15320 
15326 
15332 
15338 
15344 
15358 
15356 
15362 
15368 
15374 
15389 
15386 
15392 
15398 
15404 
15418 
15416 
15422 
15428 
15434 
15449 
15446 
15452 
15458 
15464 
154708 
15476 
15482 
15488 
15494 
15568 
15586 
15512 
15518 
15524 
15538 
15536 
15542 
15548 


372 


:210,255,169,078,032,219, 686 
:255,169,072,032,219,255,131 
3932,133,856,169,909,141,187 
:157,962,076,007,859,169,192 
7946 ,0932,218,255,169,078, 282 
2032,219,255,169,083,832,199 
:210,255,032,133,056,169,923 
:900,141,156,962,876,887,128 
:059,166,144, 208,001 ,096,1198 
2:169,900,8032,072,8056,832,859 
2963 ,656,169,8021,133,251,141 
:169,962,133,252,032,167,0813 
:056,932,846,956,1804,184,114 
:876,290,8946,169,946,032,835 
2210,255,169,883,032,210,175 
2255,032,133,8956,173,138,089 
:962,240,905,169,0901,141,102 
:156,062,976,087,059,169,619 
2846 ,932,219,255,169,072,9824 
3832,219,255,832,133,856,2206 
2169,001,141,157,962,076,114 
:6087,059,076,968,965,076,121 
:0968 ,089,074,0983,982,0882,254 
:984,083,866,067,083,866,231 
3969 ,881,866,967,967,967,205 
:877,080,966,078,969,076,248 
:068,088,074,077,880,083,814 
:884,865,083,084,989,083,038 
20984 ,988,073,078,889,068,036 
:869,089,068,969,088,668,013 
:869,867,073,978,088,973,816 
:878,067,967,988,889,8067,022 
2080 ,688,983 ,066,967,883,047 
:869,067,965,868,967,967,245 
2876 ,067 ,084,065,688,084,9856 
:8965,089,084,088,865,0884,073 
3889 ,8965,980,072,965,080,055 
:976,065,0966,982,975,866,049 
:877,073 ,9@66,988,876,065,9853 
:978,068,979,082,965,869,0963 
:079,082,966,973,084,0966,078 
:086,967,066,086,983,882,194 
:079,076,082,8079,082,076,114 
2883 ,082,867,976,068,967,889 
:876,973,065,8983,076,089,185 
3972 ,080,0980,076,089,882,128 
:884,973,083,969,0968,083,124 
:869,973,084,083,088,084,151 
2088 ,883,067,976,986,078,154 


Appendix B: LADS Object Code 





15554 
15568 
15566 
15572 
15578 
15584 
15596 
15596 
15682 
15688 
15614 
15629 
15626 
15632 
15638 
15644 
15658 
15656 
15662 
15668 
15674 
15688 
15686 
15692 
15698 
15794 
15710 
15716 
15722 
15728 
15734 
15746 
15746 
15752 
15758 
15764 
15778 
15776 
15782 
15788 
15794 
15869 
15886 
15812 
15818 
15824 
15830 
15836 
15842 


:879,080,001,005,989,09090,112 
2908 ,908 ,008 ,881,088,8905,238 
:086,0901,092,002,000,008,217 
2000 ,002,960,092,004,004,224 
2891 ,908,001,000,800,900, 220 
7000 ,9009 ,900,000,0009,808,232 
:808,001,001,801,0087,9898,0008 
2088 ,893 ,003,003,008,800,253 
:903,000,000,000,008,809,245 
7809 ,990 ,006,0098,161,168,9057 
3832,8096,176, 240,144,193,111 
:208,162,076,129,132,134,077 
:209,136, 202,198, 232,238,184 
2192,224,225,056,097,8024,066 
:178,168,138,152,8072,194,058 
2008 ,048,016,633,801,865,191 
:836,080,112,034,698,966, 204 
2216 ,088 ,002 ,088 ,040,064, 202 
:248,120,186,154,184,234,148 
2048 ,849,050,951,9052,053,899 
:854,055,956,8957,865,066,155 
2867, 868,869,878 ,908,900,982 
2800 ,000,0908,000,000,000,978 
:000,0900 , 800,800 ,09909,000,876 
2098 ,000,000,0009,900,000,982 
:900 , 8009 ,000,090 ,900,008,0888 
2890, 900 , 0008, 0008,000,080,094 
2800 ,900 ,080,000 ,800,000,109 
20990, 900 ,908,000,900,000,196 
2000 ,000 ,009,000,000,000,112 
2890 ,000,9009,000,000,800,118 
2808 , 090,000,000 ,000,800,124 
2900, 900,900,000 ,8900,900,130 
2980 ,889 ,000 , O00 ,0008,900,136 
2890 ,060,0990,000,0900,800,142 
2900 ,000,980,000,0900,000,148 
2800,908,0900,800,000,000,154 
2690 ,0089,909,000 ,000,8000,168 
2808, 000,000,680 ,0900,008,166 
20008 ,800 ,000,080,000,009,172 
2809 ,000,000,978,879,832,111 
:083,084,965,082,984,032,102 
:865,968,068,882,069,883,113 
:983,000,045,045,045,0945, 203 
:845,945,045,8945,045,945,216 
2845 ,945,045,045,845,0945,222 
:045,845,045,045,032,966, 236 
:882,965,078,867,872,832,104 
:879,8085,8984,032,8979,970,143 
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15848 :832,082,065,078,971,969,117 
15854 :800,985,078,068,969,0708,096 
15868 :973,078,969,068,932,076,128 
15866 :965,966,969,076,8098,829,943 
15872 :829,829,8929,029,029,929,174 
15878 :829,829,032,978,065,075,058 
15884 :869,968,932,976,065,066,132 
15898 :969,076,0900,8029,629,029,250 
15896 :829,829,8032,060,068,0609,938 
15982 :8960,069,9609,869,960,032,186 
15988 :868,873,983,975,8932,069,189 
15914 :882,882,8979,982,032,062,285 
15929 :862,062,862,062,062,062,164 
15926 :862,032,9090,929,8029,829,235 
15932 :829,8029,032,045,845,032,016 
15938 :868,985,080,6076,073,067,993 
15944 :865,084,069,068,932,8076,2190 
15958 :865,066,969,076,032,045,175 
15956 :845,8932,0008,029,0829,029,248 
15962 :829,029,032,045,045,032,646 
15968 :883,089,978,8084,065,088,071 
15974 :832,069,982,082,079,082,016 
15988 :832,045,045,632,0860,000,906 


Program B-2. VIC Adjustments to Prog. B-1 


To create the VIC-20 version of LADS, change the following lines in 
Program B-1: 


11938 :141,157,8962,185,080,016,871 
11954 :961,2909,185,999,016,201,197 
12814 :255,876,116,196,185,089,131 
12272 :152,032,205,221,173,139,138 
12818 :133,188,8032,198,225,0996,114 
12842 :133,188,032,198,225,032,074 
12868 :608,133,183,832,198,225,9855 
12898 :188,032,114,225,832,284,117 
13418 :8@08,232,189,158,192,816,133 
13438 :192,948,007,153,068,961,135 
14114 :808,232,189,158,192,916,961 
14126 :192,0848,007,153,800,002,192 
14426 :896,169,800,032, 295,221,845 
14462 :@32,205,221,032,022,057,183 
14486 :221,832,976,8057,896,169,933 
14699 :148,0962,032,2095,221,032,188 
14654 :166,253,932, 285, 221,032,283 
14696 :221,032,204,255,162,081,211 
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Program B-3a. PET/CBM 4.0 BASIC Adjustments 
to Prog. B-1 


To create the 4.0 BASIC version of LADS, type in Program B-1 then 
change the following bytes: 


Address Byte Address Byte Address Byte 
2B05 BB 30F4 BD 324E 96 
2B07 34 30F6 BE 3252 D4 
2BOE BC 30FA BE 3256 DA 
2B10 35 30FE BD 325A DB 
2B1B 80 3012 BD 325C 56 
2B32 80 3106 BE 325D F3 
2B39 D1 3108 BD 3262 28 
2E07 C6 310E BD 3264 BF 
2E30 C6 3113 BE 3266 29 
2E40 C6 3118 BD 3268 co 
2E47 C6 313C BD 346D B2 
2ECO E2 3143 BD 346E BO 
2EC1 F2 3148 BE 3475 B2 
2ECE E2 31A3 BD 3476 BO 
2ECF F2 31A9 BD 3496 A9 
2ED3 E2 31DE BD 3497 18 
2ED4 F2 31E2 BE 3498 20 
2EED E2 31E4 BD 3499 D2 
2EEE F2 31FE E2 349A FF 
2EFO FF 31FF F2 3725 B2 
2EF1 B3 3203 D2 3726 BO 
2FF2 83 3207 D4 372D B2 
2FF3 CF 320B D3 372E BO 
3037 BB 320F DA 385E 83 
303C BB 3213 DB 385F CF 
303E BC 3215 63 387F 83 
3042 BC 3216 F5 3800 CF 
304B BB 321B D2 3895 83 
3055 BB 321F D4 3896 CF 
3065 BB 3223 D3 390B 83 
306A BB 3227 DA 390C CF 
30C3 BB 322B DB 3941 83 
30C9 BB 322D 63 3942 CF 
30D3 BD 322E F5 3967 83 
30D8 BE 3236 D2 3968 CF 
30E3 BB 323A D4 3A10 D1 
30E5 BD 323E D1 3ABE D1 
30E7 BC 3240 63 3B72 E2 
30E9 BE 3241 F5 3B73 F2 
30FO BD 324C 9D 3BCE 96 
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Program B-3b. PET/CBM Upgrade BASIC Adjust- 
ments to Prog. B-1 


To create the Upgrade BASIC version of LADS, type in Program B-1 
then change the following bytes in addition to the changes shown in 
B-3a above: 


Address Byte Address Byte Address Byte 
2ECO AE 325C 22 387F D9 
2ECE AE 346D 92 3880 DC 
2ED3 AE 346E CO 3895 D9 
2EED AE 3475 92 3896 DC 
2EFO 89 3476 CO 390B D9 
2EF1 C3 3725 92 390C DC 
2FF2 D9 3726 CO 3941 D9 
2FF3 DC 372D 92 3942 DC 
31FE AE 372E CO 3967 D9 
3215 24 385E D9 3968 DC 
322D 24 385F DC 3B72 AE 
3240 24 


Program B-4. Atari LADS: MLX Format 


32768: 976, 203,146,169,998,133,215 
32774:0982,160,948,153,183,154,918 
3278S: 136, 208, 258,169, 999,135,148 
32786:139,141, 205,154, 169,128,185 
327922133,139,141.296,154,169,198 
32798: 001,141,227,154,932,814,987 
32894:145,165,162, 298,826,168,134 
32919:909,174,862,146,232,189, 877 
32916:909,905,201,155, 249,998,145 
32822:153, 226,153, 208, 232,976,878 
328029:647,128,132,128,932,6135,928 
32834:135,0352,995,136,169,898,0931 
37949:141,189,154,932,199,136,146 
32846:173, 209,154, 298,863,932,148 
32952:121,141,159,169,932,936, 231 
32858:145,169,8746,932,936,145,181 
32864:149, 965, 832,9356,145,1459, 208 
32870: 448, 632, 8356,145,169,983,123 
32876: 032,836,145, 832,1271,141,183 
37897:173,198,154, 288,811,149, 083 
32888: 144,133,134, 169,153,1335,218 
32894:135, 832, G43,136,173,192, 869 
32906: 154,133,136,141,185,154,@11 
32996:175,193,154,153,137,141,945 
32912:196,154,632,175,145,173, 241 
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32918:189,154, 249,983,976, 
32924:131,832,199,136,169, 
32930:141,197,154,141,297, 
32936:172, 288,154, 298,993, 
329423 204,128,149, 228,154, 
32948: 226, 154, 249,412,932, 
32954:141,932,951,141,932, 
32960:141,832,951,141,173, 
32966:154, 249,993,832,947, 
32972:0976,183,135,173,184, 
32978: 248, G23, 281,993,298, 
32984:149,991,141,184,154, 
32999:147, 153, 288,184,149, 
32996:924,199,183,154,141, 
33992:154,975,191,130,173, 
33998:154, 244,957,169, 255, 
33914:185,144,153, 249,044, 
33G2G: 226,153, 201,932, 288, 
33926: 269,185,144,153,281, 
33932: 208,603,976, 239,139, 
33939:999,142, 228,154,138, 
33944: 226,153,185,144,153, 
33959:999,157,144,153, 232, 
33956:976,022,129,157,144, 
33G62:6876, 204,128,932, 168, 
33968: 932, 666,133,976, 294, 
33974:173,165,153, 291,964, 
33988:996,173,166,153, 238, 
33986:154,973,128,141,199, 
33H922032,229,1335,976, 203, 
33998: 166, 8999,149,197,154, 
33194:147,153, 201,932, 246, 
33119:9746,194,132,185, 148, 
33116: 281,965.144, 403, 238, 
33122:154,153,165,153, 208, 
33128:148,153, 249,922,153, 
3313425153, 281,965, 144,993, 
33149:197,154, 296,185,148, 
33146: 249, 696,153,165,153, 
331522118,129,136,149,196, 
33158:1735,199,154, 298,964, 
33164:197,154, 298,142,169, 
33170:133,134,169,153,133, 
33176: 168, 699,173,165,153, 
331927:648,176,997, 924, 239, 
33188: 144, 092, 239,135,177, 
33194: 249,416, 291,941,245, 
33290: 201,044, 249,998,201, 
33206: 249,994, 209,976,169, 


174,218 
GOG,946 
154,132 
B76, 221 
173,177 
139,296 
691,162 
219,181 
144,846 
154,985 
114,231 
173,814 
998,243 
183,254 
298,142 
29, G26 
153,143 
243,835 
51,178 
162,958 
153,61 
249,597 
298,152 
153,201 
133,993 
128,171 
176,214 
207,231 


154,134 


129,161 
173,130 
@G3,9089 
153,116 
197,172 
185,984 
165,217 
238,146 
153,129 
876,147 
154, 233 
173,999 
165,171 
135,235 
281, 236 
134,999 
134,219 
612,152 
32,134 


129,231 
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¥33212:972,152,972,169,999,145, 938 
33718:134,632,943,136,194,168,945 
33274:184,145,134,173,165,153, 9598 
33239:201,635, 248,863, 201,949, 218 
33236: 244,823,173, 184,154, 281,163 
33242:998, 249,855, 281,993, 208,165 
33248:1135,169,999,024,199,183, 962 
33254:154,141,193,154,876,191,185 
33269:138,172,196,154,185,165, 214 
33766:153, 201,941, 248,816,173,942 
33272:184,154, 201,981, 299,099, 237 
33278:169,916,824,199,183,154,141 
33284:141,183,154,173,184,154, 225 
33298: 201, AGS, 249,4983,876,132, 236 
33296:138,876,159,139,1735, 288,124 
33392:154, 298, 883,976,1352,138,213 
33399:956,173,192,154, 229,136, 200 
33314:972,173,193,154, 229,137,224 
33329:176,8014, 281,255, 240,994,162 
33326:194, 976, B4G,1335,194, 814,497 
33332:912,976,968,139, 249,994,970 
33338:194,875,846,1335,194,916,819 
33344:993,976, 048,133,956, 233,993 
33350:962,141,192,154,169, 888, 216 
33356:141,193,154,976,132,138,134 
33362:172,196,154,136,185, 165, 366 
33368: 153, 201,944, 276898,094, 299,138 
33374:6876,819,132,173,193,154, 863 
33388: 201,876, 208, 08G3,8756,141, 837 
33386: 130,173,193, 154, 299,885,925 
33392:173,184,154, 281,986,176, 238 
33398: 813, 201,992, 249,969,169, 249 
33494:994,8024,169,183,154,141, 227 
33414:193,154,632,118,1498,93527,871 
33416:156, 149,676,239, 138,172,825 
33422:196,154,185,165,1535, 291,172 
33428:941,268,995,1469,199,141,952 
33434:193,154,976, 233,139,173, 879 
33446: 166,153, 201,834, 290,996,168 
33446:173,167,153,141,192,154,122 
33452:173,1894,154, 291,991, 298,969 
33458: 269,169,099,974,199,183,112 
33464:154,141,193,154,976,132, 098 
33479:139,832,119,149,976, 239,157 
33476:139,173,194,154, 201,992,914 
33492: 249,904,201,9097,298,012,198 
33489:173,193,154,9624, 195,988,987 
33494:141,193,154,976, 233,138,197 
S3590:2701,006,176,809,173,1835, 209 
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Here 


ts 

Sere: 154,024,105, 012.141.183.977 

33512:154,832,119,149,9327,182,122 

33518:149,173, 208,154, 209, 993,199 

33524:976.171,131,173, 226,154,151 

33530: 208,0035,976,171,131,173, 244 
3536: 228,154, 299,962,173, 222,823 
354223154. 248,942,169, 828, 856,175 
3548: 229,995,141, 289,154,932,894 
33554:914,145,162,094,837,811,138 
33566:145,172, 299,154,016, 995, 213 
335661168, 982,8076,837,131,169, 993 
335723032, 832,936,145,136, 208,113 
33578: 259,032,914,145,162,991,134 
33584:832,0909,145,169,928,133,943 
33590:985,169, 226,1353,134,169, 202 
33596:153,1335,135,932,834,141,176 
33602:169, 839,956, 229,985,141, 998 
33648: 219,154,169, 934,133,995, 985 
33614:1735, 222,154, 249,931,932,142 
33620:614,145,162,964,932,911,196 
33626:145,172, 218,154, 248,814, 253 
33632:648,998,169,932,93527,936,165 
33638:145, 136, 298, 259,8932,014,119 
33644:145,162,991,832,8998,145,989 
33659:932,143,141,173, 228,154, 299 
33656: 249,817, 291,961, 288,995,024 
33662:169,969,976,133,1351,1459, 896 
33668: 462,932,936,145,832,175,1982 
336742141,173, 229,154, 249,819,978 
33689:932,851,141,169,859, 832,116 
33696:936,145,169,999,133,134, 255 
33692:169, 905,133,135, 832,934,152 
33698:141,932,121,141,173,189,191 
33704:154, 209,993,876, 146,128,115 
337182173, 208,154, 298,941,238,172 
33716: 2869,154,165.,136,141, 234,199 
33722:154,165,137,141, 231,154,144 
33728:173,195,154,1335,136,173,122 
33734:186,154,133,137,832,814, 9986 
33749:145,169,901,932,025,145, 209 
33746:165.162, 288.9093, 832,912,925 
33752:135,9876, 967,128, 832,814,156 
33758:145,169,901,932,825,145, 227 
33764:162,892,0932,811,145,169, 237 
33779: 900,932,835, 145, 832,614, 237 
33776: 145,169,982, 832,925,145, 246 
33782:173, 222,154, 244,821,832, 964 
33788: 814,145,162, 994,932,011,198 
33794:145,169, 913,932, 936,145,939 
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S38O9G: 932,914,145, 169,994,832,148 
33896:925,145,876,182,145,185, 994 
33812:165,153, 291,988, 248,899,197 
33818:136,.136,185,165,153, 201,234 
33824:041,208,093,976,237.,129.,214 
33839:173,193,154, 208,915,173, 186 
33836:184,154, 201,092, 248,979,136 
33842: 201,085, 249,975, 291,991,995 
33848: 248,119,173.184,154, 281,193 
33854: 601, 298,912,173,183,154, 925 
338969:624,195,924,141,183,154,197 
33966:676, 233,130,173,184,154, 9998 
338972: 291,995, 249,0098,169,049, 248 
33978:032,27498,132,976,184,132, 942 
33984:1735,183,154,824,195,828, 247 
33999:141,183,154,876, 233,134, 247 
33996: 832,155,141,932,139,141, 223 
3$39G2:169,157,133,134,169,154, 992 
33998:133,135,032,834,141,976,155 
33914: 239, 136,173,193,154, 298,195 
33920:0969,173,184,154, 261,892,142 
33926: 208,012,169, 816, 824,199, 168 
33932:1835,154,141,183,154,876, 887 
$3938:1327,139, 201,901, 249,816,898 
3394422701, 0903, 249,017, 2781,995, 946 
33950: 249,498,169, 959,832, 249,137 
339562132, 976, 194,132,169, 820,929 
33962:974,199,183,154,141,183,196 
33968:154,185,167,153, 281,989,181 
33974: 288,0819,173,183,154, 201,987 
33988:182, 246, 003,976,194,132,157 
33986:076,132,139,173,184,154,919 
S3992: 201,902, 299,812,169,8924, 948 
33998:924,1909,183,154,141,1983, 232 
34994:154,976, 233,138, 201,991,239 
34G1G:24G,016, 261,993, 249,912,162 
34816: 281,905, 249,998,169,951,139 
34922: 032,248, 132,0976,194,132,196 
34428: 169,9278,924,1899,183,154,135 
34934:2141,183, 154,076, 233,138,135 
34946:141,209,154,148, 211,154, 233 
34046:1427, 219,154,169, 169, 832, B97 
340527: 936,145,1894,179,194,168,219 
34958:157,072,138,072,152,8932,116 
34ADS4: 207,145,175, 289,154,172, 452 
Z407@:211.154,174, 219,154,896, 253 
34976:160,009,152,153,144,153, 922 
Z4G82: 200,192,999, 298, 248,996,934 
34988: 032,121,141,9352,155,141,15¢ 
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34994:G932,1368,141,169,819,133,157 
34196:134,169,154,133,135, 832,941 
34146:934,141,932,1271,141,876,891 
34112:1327,138,169, 255, 298,185,197 
34118:144,153, 249,986, 201,832,158 
34124:2098, 2446, 200,789,148, 242,248 
34139:154.8956,165,138, 237,282,519 
34136:154,133,139,165,139, 253,826 
34142:999,1353,139,169,9699,185,199 
34148:144.153.873,128,145,138,113 
34154:206,195,144,153, 261,832,253 
34169: 246,095,145,1398,0876,196, 854 
34166:133. 208,195,144, 153, 281,119 
34172:961,249.859,134,165,136,144 
34178:145,139,298,165,137,145, 836 
34184:138,174, 292,154, 202, 164,142 
34199:908.189,144,153, 249,998,199 
34196:153,144, 153, 232, 248,975,892 
34202:143,133,153,144,153, 096, 248 
34299:9327,155,141,169,479,133,892 
34214:134,169,154,133,135,832,155 
34220:034,141,976, 223,1353,136,147 
34226:140, 203,154,175,198,154,176 
34232: 209, 025.290, 298, 208,149,131 
34238:191,154,169,144,8274,189, 213 
34244:191,154,1335,134,169,1535,196 
34259:195,000,133.135,832,843,138 
34256:136,172.283,154,173,192.214 
34262:154,145,138,1735,193,154,147 
34268: 209,145,138, 184,194,876, 219 
34274:239,130,173. 265,154,133, 2356 
34296:1496,173, 296,154,133,141,155 
342806:632, 242,134,169, 255,141,187 
34292:955,1446,856,165, 138,229,099 
34298:148.165,129, 229,141,176, 216 
$4344:099,1462.990,856,165,149,1198 
34319:233,802,1335,148,165,141,952 
34316: 2335,900.1355.141,168,690906,147 
34322:177,148,949,9127,165,148,198 
34328: 269,902,198,141,198,149,143 
34334: 232,0876,918,134,165,148, 927 
34349:141,2127.154,165,141,141, 222 
34346: 213,154,177.148, 205,198,997 
34352:154, 240,093,875, 884,134, 227 
$4359: 232.142,191,154,162,901,168 
34364:173,297,154, 248,004, 2699,014 
34378:032, 242,134, 248,195,145, 4008 
34376:153, 248,893, 201,948,144,175 
34392:879, 232,209,148, 249,241,195 
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34388:173,2127,154,133,149,173,945 
34394: 213,154, 133,141,832, 242, 237 
34490:134,076, 246,133,173,955, 145 
34496:146. 648, 991,996,173, 208,996 
344123154, 209, 992, 249,923,932, 255 
34419:155,141, 932,130,141, 832, 233 
34424:951,141,169,854,1335,134, 834 
34430:169,154,133,135,932,934,815 
34436:141,832,121,141,164,184, 987 
34442:173,183,154,841,931, 281,153 
34449:916, 240,998,173, 228,154,187 
34454: 209, 903,076, 235,138,876, 198 
3444G:1352,130, 236,191,154, 249,215 
34466: 993,976, 884,134, 239,955, 248 
344723146, 240,003,032, 251,134, 286 
34478:172,191,154,173, 287,154, 201 
34484: 249,901, 2098,177,149,141, 955 
3449G:192,154, 280,177,1489,141,166 
34496:193,154,173, 228,154, 249,846 
34592:016,201,892,298,08359,173,854 
34598:193,154,141,192,154,173, 187 
34514:219,154, 249,819,824,173,915 
34526:217,154,199,192,154,141,159 
34526:192,154,173, 218, 154,189,198 
34532:193,154,141,193,154,173,212 
34538: 299,154, 249,991,996,976, 241 
34544:9894,134,165,149, 298,902, 295 
34559:198,141,198,149,996,932,827 
34556:155,141,169,127,133,134, 987 
34562:169,154,133, 135,932, 934,147 
34568:141,632,121,141,996,932,959 
34574:014,145,169,801,932,825,144 
34599:145,169,801,133,131,169, 498 
345896:964,133,133,169, 998,133,886 
34592:132,1469, 226,135,129, 159, 222 
34599:153,133, 139,832, 218,144,098 
34694:165,901,8948,416,165, 162,899 
34619: 246,011,032, 993,152,169,145 
34616: 9099,1335.169,169, 932,133,171 
34622:161, 896, 932,115,159, 8746, 188 
34628:1827,145,169,892,133,1351,862 
34634:169, 809, 133,133,169,998,174 
3464G:133,132, 169, 226,133,129, 2354 
346463169, 153,135,139, 169,992,874 
34652:932,825,145,165,991,848, 252 
34658: 221,932, 219,144, 162,992,199 
34664:932,911,145,169, 255,952, 236 
34679:936,145,0932,936,145,173,165 
34676:185,154,932,0346,145,173,873 
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34682: 
34688: 
34594: 
S474G:; 
34746: 
S4712:s 
34718: 
34724: 
S47 30: 
S473638 
34742: 
34748: 
347354: 
347684; 
34766: 
SAFT72: 
34778: 
Z4784: 
34794: 
S4796:3 
S4B@2: 
248098: 
S4814: 
S4820: 
348268: 
34832: 
S4838: 
34844: 
24850; 
348536: 
324862: 
34968: 
34874: 
2488: 
34845: 
34892: 
24898: 
S4904: 
S491G: 
249168: 
34922: 
349283: 
34934: 
34946: 
34948: 
34952: 
34958: 
34964: 
S4AI7H: 


196,154,932, 
239,154,932, 
231,154,032, 
614,145,996, 
131,832,425, 
133,133,169, 
169,882,133, 
133,129,169, 
@32,2718,144, 
145,832,014, 
058,169,996, 
185,184,152, 
248,818,209, 
G57, 248, 248, 
280,185,184, 
153%, 249,486, 
224,246, 238, 
152,295,144, 
200,709,216, 
147,153,201, 
201,889,208, 
153,141,184, 
153,149,183, 
128,149,888, 
G3?,135,161, 
$98,145,932, 
885,145,281, 
169,481,135, 
133,135,832, 
220,151,896, 
134,281,948, 
$58,176,004, 
134,149,254, 
AHH,141,192, 
154,162,401, 
177,134,841, 
155,141,255, 
141,253,153. 
202,249,918, 
173.252,153, 
173,253,153, 
876.894,136. 
174,219,154, 
1346, 206, 254, 
96,824,014, 
253,153,814, 
253,153,024, 
199,252,153, 


173,999,154, 


036,145,173, 988 
@G36,145,173,138 
836,145,832, 252 
169,904,133,189 
145,169,998,144 
aag,133,132,984 
128,169,181,172 
135,133,138, 225 
165,981,949, a14 
145,8946,989,174 
162,255, 232,025 
285,144,1535,1907 
200, 200,224,244 
876,2389,128,1235 
152,205,145,173 
200,280, 288,195 
200,185,184,129 
153,249,095,101 
249,224,173, 295 
AS2, 248,804,245 
213,189, 814,445 
154,1898,972,116 
154,876, 287,143 
133,168,169, 251 
162,0881,932,@19 
241,145,832,197 
A42, 248,814,237 
134,169,154, 820 
034,141,076, @873 
168,899,177,856 
144.0098, 281,814 
288,976, 845,899 
155,134,169, 822 
154,141,193,117 
1427,218,154,125 
815,141,252, 8468 
153,169, 0068,1985 
141,969,154,142 
@52,1351,1356,985 
141,255,153, 2a3 
141,980,154, 212 
238,219,154, 252 
G327,178,1356,226 
153,288, 292, aa5 
252,153,846, 293 
252,1535,846,239 
173,255,153,129 
141,252,153,184 


199,253,153,2298 
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34976:141,253, 
34982:046. 253. 
34988: 252,153, 
34994:192,154, 
S5GG%2195,154, 
S5905:032, 0278, 
35012:199,154, 
35918: 220,154, 
35924:224,154, 
$5930:145, 032, 
S5G36:9352, 255, 
35947:146,128, 
35948:976, 243, 
35954:298,903, 
35969:959, 298, 
35966: 201,859, 
35072:154,173, 
35978:141,229, 
35994:249, 006, 
3$5090:988,137, 
35996:007,153, 
35192:026,137, 
35198:051,141, 
35114:121,141, 
35126:154, 876, 
35126:154,141, 
35132:932,985, 
351383000, 905, 
35144:234,153, 
35159:9469,137, 
35156:003,876, 
35162:137,173., 
35168:184,194, 
35174: 281,862, 
35188: 249,951, 
35194: 238,219, 
35192: 003,876, 
35199: 249,815, 
35204:153,144, 
3527143136, 141, 
35216:164,138, 
35227:976,831, 
35228:220,154, 
35234:001,141, 
35244:136, 832, 
35246:154, 248, 
35252:936,145, 
352759:1271,141, 
35264:932,165, 


384 


155,914,252,153,192 
153,896, 924,173,143 
199,192,154,141,149 
173, 2535,153,199,199 
141.193,154,096,a91 
135,160,000 ,140,171 
149,229.154,149,1987 
148.219,154,173,238 
209,003,852, 241,046 
$85.,145,2098,999,849 
137,194,184,876,158 
201,932, 248,239,198 
136,932,885,145,191 
876,253,137, 201,992 
OH3,876,139,137,897 
208,184,149,209,147 
222,154, 248,074,249 
154,173, 209,154,042 
G32,0952,137.976, 843 
932,985,145, 246, 233 
144,153, 209,0876, 245 
G32,1359,141, 832,018 
@32,1435,141,832, 864 
169,800,141, 289,855 
9988,137.,141,229,195 
289,154,169,999,194 
145, 298,997,153,1798 
172, 299,154,896,199 
AIA, AGS, 299,976,228 
32,995,145, 249,999 
986,137,932, 253,153 
299,154, 208,095, 2098 
976,146,128,996, 238 
240,047, 201,069,145 
201,843, 208,893,986 
154,201,842, 288,152 
169,137, 281,846,249 
201,834, 24G,814,104 
153, 209,976, 235,869 
224,154,0996,876,197 
153,144,153, 249,072 
139,169,8627,141,195 
076, 235,136,169,122 
220,154,976, 235,221 
235,136,173, 299,964 
11.159, 842,8352,954 
G932,143,141,832,197 
173,199,154, 299,157 
900,185,144,1535,998 
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35279: 201,832, 249,984, 208,876,195 
35276:195,137, 209,132.134,169,147 
35282:144,0824,191,134,133,134,112 
352899: 169,153,195, 989,133,135,143 
35294:9032, 943,136,173, 298,154, 208 
35399: 249,998,173, 2271,154, 249, 248 
35396: 993,932, 238,139,173,192, 243 
35312:154,133,136,173,193,154,159 
35318:13535,137,104,164,976,146,178 
35324:128,153.144,153, 299,192,199 
35330:990.298.248,153,144,153, 2298 
35336:173. 883,905, 291,893,249,199 
35342:019, 201,136, 249,994,169, 499 
35348: 000.141, 224,154,896,169, 836 
35354:901.141,189,154,896,162, 881 
35360: 400, 032,0985.145, 249,044,866 
35366: 201,958, 249,949, 201,032,842 
35372: 248, 245,201,859, 248,032,835 
35378: 281,844, 249,815, 261,841,824 
35384: 246,011,157, 295,153, 232,839 
35390:1535,144,1535, 248,975, 933,055 
35396:138,1427,199,154,153,144, 238 
35492:153,. 289,032,192,138,076, B87 
35498: 235, 136,141,2997,154,169,149 
35414:9090,142,199,154,1535,144,118 
35424:1535,832.192,138,1735, 289,151 
354262154, 876, 238,136,169, @GH,145 
35432:141,192,154.141,193.154, 455 
SS4383178,814,192.154, 846,193,111 
35444:154.614.192.154,046,193,181 
35458:154,814,192,154,845,193,187 
35454:154,814,192,154,846,193,113 
35462:154,1989, 285,155, 281,855,877 
35468:144, 082, 235,907,041,815,a8795 
35474:913.192,154,141,192,154, 224 
S548: 2527.2356.199.154, 299, 209,118 
35486: 238.1998,154,159, 881,896, 246 
35492:192, 806, 240,814,174.208, 22? 

35499:154, 288,9099,872,152,872, 869 
35504:0327,8566,13535,194,1698,184,015 
35514:153,144,153,200,832,095.,181 
35516:145,153,144,153, 209, 281,168 
3552727:944. 208.184,169,9690,141,114 


355278: 214,154,173, 289,154, 240, Hb 
35534:423.140,711,154.173, 226,199 
35540:154. 2748, 615,832,130,141,156 
35546:032,851,141,.032,8091,141,194 
35552:032,851,141,172,211,154, 217 
35558:9527,885,145,153.144,153,174 
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S544: 
sofas: 
Foo &e 


To = 
S20900G2 5 


SBSS8aQ: 
SS3S594: 
B56: 
S3GH6: 
BSGi2: 
33618: 
ZE624: 
A563: 
SBUGiG: 
ZS642: 
S3564G: 
S5654: 
S566: 
Z5666: 
S5672: 
S679: 
So684: 
S569@: 
S5696: 
S57825 
So78HG: 
35714: 
S572: 
S726: 
Su732: 
S5738: 
SB5744: 
S575@: 
S5756: 
S57&2?: 
35768: 
25774: 
35788: 
35786: 
Sg792: 
357998: 
S584: 
SSBigs 
BS816: 
S5822: 
35828: 
35834: 
S5G465 
S5846&: 


os 
o 


wT 

_* 
4 
— 
rT 
— 


any 


2a, 
985. 
201, 
145, 
201. 
139. 
A552, 
229, 
G34, 
174, 
AIA, 


122, 


146, 
172, 
13a. 
iS7, 
154, 
DAG, 
PAL. 
137, 
iS4, 
iss, 


173. 


Pal, 
145, 
=a, 
208, 
asa. 
21. 
137, 
154, 
209, 
208 , 
141, 
142, 
Pil. 
Pil, 
142, 
245, 
288, 
BS7, 
ASP. 
174, 
BIS, 
173, 
18s, 


2ii,@ae2. 


139, 
iss, 
Pai. 
240, 
B76, 
141, 
149, 
iss, 
H45, 
236, 
AAD, 
202. 
173, 
Pa. 
g58, 
141, 
14, 
ane 
BIS, 
173, 
AB’. 
AB?, 
192, 
154, 


173, 
PAD, 
AGA. 
Bis, 
az74, 
186, 
245. 
135, 
136, 
140, 
142, 
208, 
208, 
141, 
PAG, 
224, 
184, 
173, 
114, 
208, 
AIL, 
as2, 
154, 
173, 


SuBsa2:141,191, 
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wa2, 
iss. 
208 . 
OAS, 
208. 
as, 
174, 
A774, 
GAS, 
154, 
B7b. 
i5z, 
154, 
154, 
AB, 


wuts 


117, 
201, 
208, 
222, 
iSi, 
20g, 
iSa. 
W2a, 
185, 
2H1. 
24a, 
157, 
139, 
iSs, 


<r 
Oe 


144, 
174, 
172. 
GOS. 
2568, 
154. 
173. 
AAS, 
154, 
i73, 
224, 
isi, 
154, 
G32. 
Bii, 
229, 


195, 


208, 
144, 
HH?, 
O76, 
AAS 
208, 


22, 


Pil, 
O75, 
209, 


252, 


144, 
a2, 
2a, 
142, 
22, 
G32, 
g5a. 
a1i2, 
154, 
139, 
154, 
2H1, 
141, 
i5Ss, 
a32, 
A2A, 
245, 
238, 
W7b, 
134, 
Pil, 
192, 
Pil, 
157. 
a7 6. 
208, 
194, 
B32, 
238, 
208, 
154, 
B76. 
2H1, 
aia, 
145, 
isé, 
154, 


o 
pam 


245,857,130 


iSs, 
a32, 
Pil, 
B74, 
#12, 
i54, 
139, 
252, 
ABS, 
13a, 
iS, 
235, 
B74. 
215, 
i7, 
aes. 
24aG, 
W32, 
142, 
141. 
208, 
A32, 
O74, 
isi, 
24a, 
2H1, 
153, 
215. 
184, 
169, 
154, 
154, 
i54, 
245, 
a74, 
Aas, 
iss, 
253. 
228, 
154, 
2AS, 
144, 
AG? 
145, 
O54. 
i4i, 


2aa, 
#85. 

39, 
214, 
G32, 
142, 
2a1, 

38, 
B32, 
BIS, 
176, 
1468. 


252, 


154, 


g98 
1a? 
gis 


[—7 
Poe 


149 
127 
Bas 
227 
ASA 
231 
142 
197 
BIg 
197 


2? 


215,22 


145, 
Hbz, 
G52, 
229, 


195, 


wags 
183 
148 
1298 
178 


A135, 247 
2AG, 848 


az4, 
144, 
Ara, 
#58, 


7 


i54, 
139, 
iS, 
G32, 
O32, 
149, 
iS3, 
139, 
O32, 
2H1, 
137, 
154, 
24a, 
AAS, 
128, 
209, 
142, 
iva, 
196, 


14604 
47 
212 
gee 
161 
g2H 
185 
isa? 
205 
135 
236 

38 
115 
2S 
2 ed 
163 
“7s 
179 
AS 
135 
164 
182 
137 
2198 


229,137,822 


154,169, G890,0352,187 


Appendix B: LADS Object Code 





W35859:936,145,173,198,154, 298,156 
358464:0035,2706,191,154, 286,190, 286 
35874:154, 268, 238,173,191,154,124 
35876: 208, 233,.932,814,145,1462, 462 
35882:901,832,09098,145,896,169, 228 
35888: 490,162,990,185,144,153,189 
35894:201,8435, 248,984, 200,876,950 
359899:951,1468, 299,185,144,153,165 
35996:932,878,149,176,818,157,155 
35912: 285,153, 232,676,062,148,172 
35918: 291,858,176, 984, G56, 233,948 
35924: 848, O56, 233,298,894, 169,126 
35939:990,157, 295,153,149, 285, 711 
35936:133,134,169,153,133,135,185 
35942:932,043,136,173,192,154, 964 
35949:141,217,154,173,193,154,116 
35954:141, 2719, 154,996,173, 289, 98H 
35968:154, 208,804,G32,820,141,147 
35966:996,173, 226,154, 248,817,998 
35972:032,814,145,162,801,832,986 
35978:008,145,174,1835,154, 832,964 
35984:068,141,8932,051,141,174, 231 

5999:1835,154, 0932, 236,148,896, 225 
3599631735, 289,154, 288,994, 832,157 
S6GH2:029,141.996,1735, 226,154, 204 
36098: 249,906,174,192,154,832,198 
36814:069,141,174,192,154, 876, 293 
36928: 236,14%.1735, 208,154, 208,019 
36925:907,832,920,141,032, 829,182 
36032:141,996,173, 226,154, 248,198 
36038: 996,174,192,154, 832, 464,849 
368445141,174,192,154,832, 236,109 
36659:140,173, 226,154, 249,814,133 
36656:173, 227,154, 248, 003,0352,0?1 
366627:2:051.141,174,193,154,832,199 
36968:069,141,174,193,154,876, 002 
36074: 236.149,142,191,154,1735,246 
3698G:223,154, 249,905,169, 900,254 
36986:138,145,136,173, 221,154,189 
36092: 24G,027,G32,914,145, 162,899 
36898:002,832,811,145,175.,191,944 
36194:154,032,842,145,932,014,171 
36119:145.162,081.,932,998,145.251 
36116:024,169,881,191,136,133,972 
3612231356,169, 899,181,137,133,199 
3$6128:137,995, 169, 909,177,134, 224 
36134: 248,019, 932,936,145, 032,021 
$6144:169.,141, 208,876, 0936,141,939 
36146:095.169, 832,032, 8036.,145,848 
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35152:837,169,141,896,142, 219,878 
36158:154,1735, 227,154, 248,@11, 253 
36144:139,032.097,142, 932, 219,207 
35174:141.174, 219,154.896,169, 256 
36176:008.G032, 287,145,832, 214,194 
361927:141,174.2719,154,9945,173,819 
36198: 227,154, 244,014,165,137,995 
36194:932.,897,142,165, 134,837,198 
36208:697,142,832.8805,1427,896,196 
36206:166.136.165.137,932. 707.185 
36212:145,632.985,1427.896,169,195 
36218:G135,8352,8345,145,8352,169, 837 
36224:141,8096,174,187,154,173, 829 
36239:188.154,832, 207,145, 9327,124 
34736:059,142,896,169,144,133,115 
36242:134,169,153,1335,135, 932,134 
$6248:834,141,896,169, 255,852,189 
36254:036,145.832,1435,141,169, 856 
367602815, 852,9356,145,0996,174,148. 
36266: 208.154, 20998,091,896,174, 243 
346272:2272,154, 249,9081,896,141, 2398 
36278: 289,154.832,014,145,1462,139 
36284: 004.052.011,145,173.2689,25¢ 
36299:2154,0832,836,145,0352,914, 095 
36296:145,162.801,037,898,145,1981 
SGSH251735,209,154,8696.174, 298,196 
S6398:154,2060,901,896,174, 222,845 
36314:154,289,0901,996,932,014,711 
362320:145.1627.884,.032,811,145,211 
36527621735. 227,154, 248,889,1735,182 
$6532: 218,154, 832,0997,142,975,179 

SRG: 252,141,169, 988,174, 214,164 
363442154, 932, 287,145,032,014, 864 
36359:145.1627, 081,032,909,145, 235 
36354:995,174, 208,154, 289,001,877 
36562:996.174, 222,154, 208,001,897 
36368: 996, 832,914,145,162,994, 213 
36574:032,011,145,174,227,154,253 
BZ638G: 249,015,165, 157,832,897, 208 
343846:142,165,134, 832,897,142, 236 
36392:076,858,142,165,137,165, 488 
36398: 136,832, 207,145, 832,814,188 
36404:145,162,0961,032,868,145,a35 
36414:896,.174, 298,154, 298,001,131 
36416:096,174, 222,154, 288,901,151 
36422:096,0352,814,145,162,004,@11 
364264:052.,0811,145,173,198,154,011 
36434:174,197.154, 932,287,145, 213 
356446: 8352,914,145,167,9601,832,2718 
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36446:0998,145,995,0872,841,015, 215 
36452:168,185,129,153., 
36458:074,874,874,a874, 
36464:1278,1535, 832,836, 
36478:8327,836,145,996, 
36476:298, 888,852,271, 
36487:194,876,146,128, 
36488: 208,996,932,039, 
36494:129,142, 281,948, 
36500:876,1827,1435, 281, 
36596:9935,076,171,143, 
36512: 288,003,976, 236, 
36519:979, 288,603,974, 215,143,122 
3652432081, 8835, 288,995, 


36530:144,201,9072 


~298, 


36536:191,144,153,144, 
36542:139,141,932,951, 
36548:991,141,832,155, 
36554:143,141,169,157, 
36564:169,154,133,135, 
36566:141,032,1271,141, 
36572:1435.0352,985,145, 
36578: 248,803,876, 2271, 
36584:996,932,085,145, 
36598: 246,007,1535,144, 


36396:876, 23535,142 


,132, 


36692:908,195,144,153, 
36698:1535, 226,153,296, 
36614: 288, 243,173, 298, 
36620:994,932,991,141, 
36626:141,832,1435,141, 
366323141, 832, 813,135, 
36638:9327,999,145,162, 
366443189, 154,996,169, 
36659:936,145.169, 969. 
36656: 145,169,978, 8352, 
36662:159, 68,832,036, 
36668: 0832.032.836,145, 
36674:142,1723, 208,154, 
34680:238,189,154, 238, 
36686:165.136,141,239, 
36692:137,141, 251.154, 
36698:154,13535,1346,173, 
367G4:133,137.8932,198, 
36719231735. 209,154,249, 
36716:985,145,153,144, 
246722: 900,032,085,145, 


$36728:153.,144,1535 


1153, 


178,194, 249 
168,195,245 
145,138,232 
291,878,186 
142,194,871 
201,059,986 
143,876,128 
298,003,125 
G80,288,198 
291,979,858 
143,281,005 


876,165,140 
GG3,0876,114 
153,032,235 
141,937,295 
141,832,926 
133,134,055 
G32,834,897 
B7H,199,147 
291,832,099 
142,148,044 
291,880,195 
153,208,111 
128,160,091 
249,899,212 
196,128,832 
154,289,176 
@32,851,199 
G32,121,116 
162,881,252 
GAB,142,a07 
945,832,210 
932,935,017 
936,145,141 
145,169,161 
32,221,844 
248,005,218 
248,154,229 
154,165,845 
173,195,981 
194,154, a92 
134,996,852 
A235, 832,164 
153,168,180 
248,815,117 
226,153,878 


25734: 280,0876,115,143,976,198,158 
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36740:143,132,128,8527,143,141, 895 
36746:037,121,141, 239,271,154, 821 
36752:032,979,135,932,914,145, 060 
36759:14627.801,032,809,145,832,818 
36764:132,144,032,253,137.194,198 
36779:194,162.6988,142,189,154,145 
36776:976, 146,128,173, 298,154,829 
356782: 248,814, 832,143,135, 238, 248 
36788: 222,154,037, 414,145,162,141 
36794:961.832,008,145,937,985, 233 
34800:145.240.007, 201.958, 240.959 
368046: 09946,976,198,143, 0832, 253,130 
368912:137.194,184,162,889,142, 695 
36918:199. 154,974,146, 128,169, 848 
36824:046,0352,936,145,169, 879, 211 
36834: 0352, 8356,145,852,121,141, 217 
34836: 169,801,141, 223,154,875, 224 
36842:199,143,173, 288,154, 249, G42 
36848:205,037,985,145, 281,980, 228 
36854: 249,017, 201.879, 248,958,852 
368964: 201,985,248,106.201,872,1351 
34864: 240,076,169, 946, B52, 036,989 
36872:145,169,879,932,936,145,181 
36878:169, 989,932, 836,145, 832,252 
36884:121,141, 206, 227,154,832,129 
36990:014.145,162,6684,052,811,138 
36996: 145,169,415, 932.936,145, 069. 
369023169, 9894,90352,025,145,932,199 
36908:3414,145,162, 881,832, 999,159 
26914:145,976.198,143,169.946,851 
369282052, 8356,145.169,879, 832,836 
36926:936.145,169.979, 932,936, B47 
369322145, 832,121,141,169,408,164 
25938:141,27273,154,876,198,143, 2355 
36944:169. 845, 8352, 8356,145,169,165 
36950:0798, 8352,836,145,169,872,106 
36956: 832,936,145, 832,121,141,887 
36946221469, 900,141,2277,154,876, 897 
36968:198.143,169,646, 832, 936, 208 
369743145. 169,879,8352,936,145, 283 
36989:169, 9835, 8352,836,145,052,181 
36986:121,141.1469,988,141,226,152 
369922154. 876,198,143,174,899,196 
356998: 803,848, 901,896,169, 998,195 
37804: 932,068,141,8327,851,141, 885 
37818:169,092,1353,134,169,154, 229 
37@16:1335.135,832,155,141,932,G12 
37822:034,141,184,194, 076,220,859 
37828:131,169,645,932,036,145, 2711 
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37G934:169,0835, 852,856,145, 93527,155 
37949:121,141,173, 298,154, 2748,189 
37G46:985,169,001,141,225,154,110 
37852:28976,198,1435,169,845, 952,876 
37858:936,145,169,072,832, 836,172 
378964:145,832,121,141.169, 801,841 
378679:141,227,154.876,198,143,113 
37876:G19.819, 918,018,178, 896, 904 
37982:1465,1351,932, 212,144,165, 843 
37888:129,157, 869,483, 165,138,188 
37994:157.8969,.803,165,128,157,141 
371969:072,9093,169,998,157.975,198 
37196:903,165,1335,157,974, AB, Ga9 
37112:165,132,157,975, 885,169,181 
37118: 003,157,966, 985,832,994, 989 
371242228, 132,881,896,134,142, 225 
37139:9945,134,143,996,162,999,129 
37136:134,142,134,143,134,131, 466 
371423134,801,896, 832, 212,144,129 
37148:169, 812,157, 866,993,976, 255 
37154:992,145, 201,813, 298,092,893 
37169:169,155,141, 295,145,148, 225 
37166: 284,145,142, 295,145,145, 828 
371722143, G32, 212,144,169, 998, 246 
37178:157.8972,983,157,8735,003,811 
37184:1469,011,157,966, 693,173,131 
37190: 203,145, 9327,082,145,172, 981 
37196: 284,145,174, 265,145,173, 998 
37292: 2083,145,996,148, 284,145, 247 
37208:142,295.145,165,162, 249,125 
372143046, 160,999,177, 168,872,197 
37220: 230,160,299, 092,230,161, 847 
37226:024.165.,169,237,847,146,117 
37232:141, 246,145,165, 161, 237,143 
37238:648,146, 813, 246,145, 144,852 
37244:005, 249.0803,876,174,1351,241 
372582169, 688,155,901,141,883,145 
37256:98935,184,976,162,145,165, 823 
37262:142, 832, 212,144,169.800,073 
37268:157,872, 683,157,875, 885,181 
37274:169,087,157,866, 005,832,576 
37290:0027,145,172, 284,145,174, 234 
37296:205,145, 291,155, 289,802,959 
37292:159,098.896,872.165,817,179 
37298: 246,0027,194,896,876, 203,131 
373G4:146,162,8907,142, 286,145, 224 
37319:139.0352.025,145,174, 296,142 
37316:145, 202, 208. 2743,876,914, 868 
373222145, 999,090, 000,000,154, 225 
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S7S28: 212,155. 215,852,178, 217,161 


SB72354: 
373485 
37346: 
S7352: 
S73358: 
3B736&4: 
S737: 
SB737S5: 
S732: 
37398: 
37394: 
S74aAG: 
374863 
37412: 
374198: 
SB7424: 
S7430: 
a7436: 
27442: 
37448; 
374354: 
SB7 4643 
37466: 
37472: 
374783 
37484; 
374948: 
S7496: 
S752: 
375868: 
373514: 
37326: 
37526: 
S7S32: 
37538: 
SB73544: 
S7S50s 
27556: 
27562: 
37368: 
S7574: 
37584: 
27586: 
S7592: 
S7S98: 
S744: 
37516: 
B7h16: 
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932,230, 
248,145, 
127,832, 
AGb,172, 
236,896, 
g85,145, 
153.9008, 
145.169, 
169,008, 
133,135, 
192.154. 
193,154, 
GAA, AIP, 
BAA, AID, 
BAN, BAB, 
GAG, 800, 
Iga, aaa, 
AAD, AAD. 
GAA,173, 
146,173, 
146,173, 
144,173, 
144,174, 
149,400, 
aaa,1985, 
255,208, 
244,238, 
144,224, 
208.224, 
271,896, 
G135,839, 
824,138, 
184,146, 
183,146, 
144,141, 
146.141, 
G9.146, 
168,255, 
255.255, 
245,204, 
144, 282, 
255.154, 
GaGA,133, 
82,0352, 
141,124, 
125,148, 
148.149, 
169,884, 


216,169,999,149,2274 
177,243,972,841,114 
836,145,194, 649, 206 
246,145, 200,208,179 
O88,169,990,9352, 258 
201,032, 248,087,196 
GAS, 200,876, 243,159 
GOA, 1535, 9HG,A05, 216 
33,134,169,995,194 
#32,043,136,173,152 
141,187,154,173,251 
141,188,154,169, 246 
876,283,146, 898,939 
GAG. AAA, AIA, GAG, Sb 
AAG. AAA, GIS, AIA, B42 
GOS, G00, 999,000,048 
DIA, GAA, AIA, Gaga, asa 
DDD. AIA, AAA, GAA, Geo 
935.146,141,194,153 
36,146.,141,185,951 
937.146,141,197, 968 
$38.1446,141,198,968 
GAG,144, 249,032,198 
141,841,146,169, 241 
255,255,153, 255,181 
294,941,146, 268,139 
145,146, 238,198,149 
SA, 249,0898,202,172 
173,939,146, 298,199 
173,0949,146,179, 218 
144, 298,891,0996,129 
189,936,146,141, 226 
175,835, 146,141, 207 
24.138,199,938,926 
187.146,173,837,224 
186,146, 232,172,167 
208,884, 240,813,054 
185,255, 255,153,163 
136,192, 255.2099, 207 
184,146, 286,187,984 
208,234,8996,162, 222 
832,185,145,169,129 
162,169,002,133,041 
121,141,169, 248, 233 
149,169,158,141,071 
169, 228,141,126,141 
1498.141,127,148,991 
141,128,148,169,455 
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3762271147, 
37629:141, 
37634:131, 
37644:148, 
37646:169, 
37652:151, 
37659:141, 
37664:137, 
37670:148. 
37676:149, 
37682:152, 
37688:144, 
376942149, 
3778G:984, 
37796:1464, 
37712:032, 
37719:147. 
377243144, 
37738:146, 
37736:145, 
37742:1364, 
37748:903, 
377543154, 


141.129, 
154,149, 
148.149, 
149,151, 
196,141, 
141,135, 
136,148, 
148.1649, 
169,151, 


148,169, 
149,151, 


244,141, 


141,133, 
134,148, 
148,169, 
169,151, 


224,141, 


141,139, 


874,141,904, 402, 
141,087, 892,173,865,878 
249,083,876, 887, 
205,141,865, 146, 
147.169,880,141,0847,144 
169,932,141,448, 
G14,145.996, 9352, 
169.142,16@,158,0932,118 
149.160,499,140,843,238 
14%,864.146,932,895,199 
166,991,815,@17, 
240,007, 224,128, 


@GS2,115, 


76,987, 


15a,a32, 


147,201, 


37764:298,818,872,173,864, 
801,141,054,146, 
649,27998,085,174,463,871 
240.209, 238.9635, 
37784:201,0859, 209,993, 238,964,157 
174,964,146, 208,912,149 
127,281,997,144, 996,912 
123,176,992,941,095, G48 
AIA, G65, 290,261,989, 225 


37764:873, 
37772:2@1, 
37778:146, 


377902146, 
37796:041, 
378G2:2G1, 
37888:153, 
37814: 298, 
37820: 006, 
37826: 885, 
S7832:201, 
37838:176, 
37844:255, 
3785G:141, 
37856: 288, 
37862:9845, 
37868:993, 
37874:147, 
37994: 148, 
37886: G44, 
37892: 246, 
37898: 221, 
379H4:208, 


174,134, 


169,155, 


a5,148,0842,146, 
2406,153,173,999,995, 253 
658,176,939, 201,948,155 
OG3.876,243,147, 


B32,223 


173,855, 


Og5,832,163,149, 
146, 284,042,146, 


$32,255, 
169,082, 


133,294, 


149,876, 
33,283, 


149,999, 


146,162,888 ,177, 


48,201, 


255,246, 


GHA, 95,208,909, 
208,239, 230,204,874, 149 
37918:982,148,177, 203, 249,888,832 


175,131 
141,199 
132,2@1 
148,138 
169, 285 
Pili, 207 
141,144 
138,22 

148,144 
149,893 


147,243 
B76,994 


146,244 
7a, 215 


224,161 
249,061 
194,849 
G34,849 
146,835 
194,151 


146,164 


153,153 


192,201 


149,252 


154,165,208, 221 
845,144, 


146,156 
172,195 
248,829 
BI4,877 
169,121 
140,999 
203,220 
G34,254 


232,173 
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379163289, 
37922:024, 
37928: 005, 
37934:149, 
379483097, 
37946:946, 
37952:148, 
37938:146, 
37964: 472 
37972976, 
S7976: 879 
37992:909, 
379688: 04099, 
S7F7945908, 
SBA? HA? 
3BGG6: 500, 
SB1 25 Gad, 
SEBGIBS AAG, 
S8924: 000, 
SBAGS3as 133, 
SAASG: 227, 
SEBG42:832, 
38S49:229, 
28954:946, 
38960:208, 
38966: 254, 
38872:149, 
SBG78: Saag, 
3=8984:;165, 
S8090:049, 
SBH9G: 202, 
$9192:039, 
39198:1989, 
38114: 902, 
SBL2Hs: Ae, 
SA126:204, 
391327:148, 
SBisegeigi. 
38144:146, 
SEG158:31085 
38156:146, 
S38162:90351, 
381469:946, 
38174:048, 
3818G:005, 
39194:136, 
39192:43, 
Z28198:193, 
SB284: 0856. 
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29a, 
148, 
B76, 
isa, 
147, 
144, 
G56, 
1989, 


1173, 
~983 


g7>s 


~983, 


gas, 
O74, 
Q77. 


ADS, 


agar. 
AGA, 
OG. 
Aan, 
205, 
2uS 4 
i333. 
2a4, 
144, 
ae, 


AA?,2 


GD, 


177,2 


Gai. 
144, 
G43, 
144, 
148, 
A946, 
iss, 
169, 
146, 
2OS, 


141, 


Oa, 


141, 
146, 
144, 
146. 
O74, 
ASG, 
144, 
154, 

146, 


249,236, 
258,846, 
815,148, 
G32,144, 
142,862 
Hig,178, 
233.801, 
125, 149, 
966,146, 
,284, 
OAG0,879, 
065,986, 
“79,865 
069,082 
#75, 865, 
789,0g83, 
AAA, AAG, 
AAA, AAA, 
WA, AAS, 
@S6,1735, 
141,@39, 
2AGL1I7S, 
141,449, 
178,9@13, 
H96.169, 
24,489, 
141,849, 
WS2, 
“22, 
241. 
288, 
BAP, 
169,808, 
198,a1¢, 
283,169, 
“egw, 14a, 
@2508,146, 
133,1 34, 
535,146, 
133,135, 
54,146, 
237.847, 
173,852, 
Mid.Ab6G, 
A97.,149, 
I73,192 
141.8664, 
237, aaa: 
248,815 


2a, 
#48, 

208, 
Hii. 
141, 


.9698, 


2154 


204,876, 
144,162, 
169,156, 
149,876, 


146,175, 


199,124, 
141,846, 
233,999, 
872,096, 
70,8468, 
469,997, 
069,832, 
a32, 
S69, 
ASS 
2oS 4 
aa, 
Aga, 
Aan. 
146, 
149, 
146, 
173, 
144, 
141, 
“29, 
1464, 
145, 
2a4, 
2a4 
173, 
876, 
7204, 
149, 
ins, 
146, 
“ara, 
@si, 
2M4, 
B52, 


17s, 


G68, 
aga, 
Aga, 
GAG. 
169, 
OAT, 
144, 
o48, 
146, 
a39, 
eigii, 
240, 
146, 
OSS, 
200, 
230, 
234, 
146 
141 
Bae , 
‘as S24 
“aS5. 
152, 
i4i, 
165, 
141, 
ase, 
146,141, 
1464, 237, 
144,144, 
AZ, B45, 
aZasy, 
146 
144,413, 
2176, #14, 


~173,25 


171 
“ase 
ws 
247 
@41 
231 
197 
143 
189 
21 
228 
173 
164 
218 


.18¢6 


116 
124 
1304 
g49 
132 
O51 
122 
BS9 
2298 
M2 
1s9 
g8i 
Gis 
8458 


aaa 


Hos 
GA 
go? 
PB od 
134 
16S 
136 
245 
aB7 
ado" 
216 
gis 
w7& 
gel 
186@ 


222 


1 
a7 Ss 
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38218: 9352.129,149, 209, 288,092,817 
38216: 230, 204,976, 245,148, 296,157 
38222:655,146,832,128,149,824,198 
392278:152,181,203,141,9535,146,112 
38234:169,800,1891.204,141,854, 247 
38246:146,239,955,146,9546,173,142 
38246:053,146, 237,051,146, 141,1688 
38252:956,146,175.054, 146, 237,152 
39258:9527,146,141,957,146, 238,124 
39764:956,146, 209,993, 239,057,940 
38279:146,896,172.959, 146,177,145 
38276: 203,281,155, 249,898, 248,115 
39292: 209, 247,239, 2084,876,1351,218 
38789:149, 096,135, 203,132, 204, 837 
38294:160,00G.177, 203, 248,996,148 
38399: 03527,936,145, 200, 208, 246,255 
38305:996,1735,89535,146,924,185, 247 
38312:601,141.935, 146,173,954, 286 
38318:146,185,908.141,835,146,236 
39324:173,851,146,141,837,146,196 
38330:173,052,146,141,838,146,114 
39336:956,1735, 847,146, 237,855,136 
38342:146,141,839,146,173, 848,125 
39348: 146, 237,854,146,176,814, 209 
3$9354:173,947,146, 249,903, 296,981 
383469:948,146, 206,847,145,076,117 
38366:235,149,141,848,146,913,178 
38372:039,146, 249,822,032, 867,886 
38378: 146,956,1735,947,146, 237,815 
3$9384:056.146,141,947,146,173,181 
38396:948,146, 237,957,146,141, 253 
39396:948,146,8996,173,851,146,144 
3$9402:133,205,141,835,146, 056, 204 
38498:109,8942,146,141,937,146,117 
38414:173,0852,146, 1335, 204,141,995 
38426:036,146,195,800,141,838, 239 
38426:146,956,1735,847, 146, 237,863 
3$8432:851,1446,141,839,146,173,216 
38438:0498, 146, 237,952,146,141, 048 
38444:948,146,176,814,173,847,128 
38459:146, 208, O35, 206,448,146, 939 
38456: 206, 947,146,976, 878,158,239 
38462:9135,0839,145, 244, 93,832,825 
38469:134,146,8956,173,947,146, 882 
38474:109,042,146,141,847,146,193 
38499:173, 048, 146,195,898,141,181 
394846:948,146,169,990,185,890,113 
38492:005,145, 205, 208, 204,842,123 
389498:146,144, 245,249, 243,896,188 
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SB344:5 
S38316: 


38522: 
38523: 


165,131, 


os 


244,0835,832,82 


188 


145,932,014,145,996,165,195 
39516:9691.141, 


145,149, 
146,149, 


SB534°599G, 032, 


SB54as 


141,994, 


38546:883,0532, 


SES525 
S855: 


121.446, 
121.119, 


38564:669,114, 
38578:400, 2535, 


S8376: 
SB582: 
38588: 


SBS94:242 


114,832, 


$82,075. 


189,832, 
,169, 


38600:995,135, 


SB60S: 
38612 
38618: 
38624: 
SB63G0: 


2242 


176,988, 

,13%, 
135,212, 
191,156, 
145.165, 


38636:G432,231, 


38642: 
38648: 


15a, a7, 
144,205, 


38654:09746,148, 


386698: 
38666: 
SB672: 
28678: 
S3B684: 


1735,a51, 
173,952, 
173.453, 
172,954, 
165, 209, 


SB69H2: 028,173, 


38696: 
SO7M23 


173,458, 
173,859, 


S38708:076, 658, 


38714: 


38720:061, 


173,869, 
1464, 


38726:9535,146.2 


aB732: 
387385 
3E744: 


SB730:2:9359,146 


S87356: 
38762: 
387686: 
387748 


SA78G:201, 
39786: 244, 


38792 


396 


Bo? 


146,173, 
141,846, 
173,055, 


144,876, 
~146, 
149. a0. 
172,842 
155, 


BAS, 


1:644,148,152 


~ 288.893, 23a, 


.146,185,998, 


966,146,93527,195, 
171,169,158,932, 
174,964,146,149, 
207,145,932,1271, 


155,976,965,968,22 


GO2,101,997,196, 
155,909, 253,995, 
114,897,128, 932, 
114,111,114,155, 
@6£9,114,114,111, 
G45,0352,009, 866, 
GS2,1402,114,111, 
Aas. 1353,242,239. 
agg. 35,243,169, 
244,932,008, 215, 
M32, 214, 217, 145, 
208,996,169, 909, 
1335.213,896, 032, 
165,27127,141,043, 
2123,141,044,146, 
148,896, W32,246, 
$87,147,173, 862 
$42,144, 
148,032,223, 
146.141, 868, 
146,141,051, 
146,141,958, 
146,141,959, 
205,042,144, 
955,146, 208, 
146,141,853, 
146,141,054, 
isi, O32, PES 4 
146,133, 2083,1753, 
133,284,956,173, 
29,2835,141,839, 
854,146,229, 204, 
146,176,481,896, 
146,298,898, 238, 
BAG, 
173, 
129, 
i398, 
GAS, 
21. G44, 
242,876, 
237, D2, 


15a, 
146, 
146, 


144, 
208, 
O47, 
144, 
146, 
159, 


165,149,024, 
195,900,135, 
195,005,135, 


248,816, 
248,288, 
2836, 


i7s 
181 
214 
is? 
9 
129 
o42 
242 
g7s 
Gb5 
2a? 
186 
166 
126 
Go2 
246 
ASS 
Ais 
1g2 
Abi 


253 


7169 
208,003,235 


2355 
2g? 
217 
35 
29 
234 
171 
245 


Zo 


146,22 


Can ora 
= 


178 
Wo? 
113 
G4 
17% 
148 
gag 
mo4 
1469 
142 
176 
2a 
gisvs 
go 
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38798:1464, 
S8884:149, 
S8814:145, 
3898146:218. 
3B822:996, 
388278:0876, 
S8G34:1355, 
388442032, 
38846:032, 
38852:169, 
38858:151. 
38864:076, 
39870: 205, 
38874:142, 
38882:146, 
3B888:141, 
38894: 2742 
S8900:007. 
2B986:897, 
39912:032, 
38918:212. 
S9924:003, 
38938:167, 
38936:988, 
38942:157, 
38948:145, 
389954:189, 
SA9SG: 047, 
38966:932. 
28972:201, 
38978:155, 
38984:158, 
3899G:150, 
38996:184, 
SOOM? 2: 

3980822 
39814:2835, 
39929:968, 
390246:9B84, 


| 


~ 
os 
eS 

de 


S9GS2:869, 


S9O38:077, 
=9844:0683, 


39956:984, 


39856:984, 


SB9G62:2:969, 


39968: 049, 
39874:978, 
399808: 998, 
39986: 0869, 


148,862,145,135, 
@87,133,1351,932, 
169, 886,153,132, 
144.166,061,948, 
194,184,832,115, 
87,147,149, 908, 
GS7,194,151,166, 
G11.145.832, 246, 
194,158,876, 987 

Gh4.135. 135,032. 
166.131, 832, 998, 
O94,147.1735,862 
642,145,268, 982 
876.8685,128,175, 
@32,191,158,145, 
241,151,165, 215 


6151, 832,255,255, 


147,@837,27527.,151, 
147,169,884,133, 
194,151,165,131, 
144,169, 900,157, 
169, @32,157, 469, 
GA,157,872,983, 
157.8735, 883.,149, 
66,885,832, 482 
131,89352,212,144, 
872,903,195, 008, 
144,189,873, 9085 
141,948,146,145, 
36. 2748,886, 9352, 
876,887,147,9352, 
894.888,169,181, 
$32,146,149,104, 
O55, 233,402,175, 


~8008, 852,207,145, 


154,0932,121,141, 
146,876, 469,465, 
A89,874,895,882, 
AG3.,.%56,067,083, 
AG1,.866,867.,.867, 
184,065,878. 8659, 
A88,074,877.,989, 
465,983,884, 899, 
4799,073,878,9889, 
089,868,869, 089, 
067,873,078, 888, 
Ab57,867,888,9889, 
98,993,956, 947, 
657,065,068, 067, 


128,129 
aa 5,135 


Ma2, 255 


H8A1, 225 
150,255 
133,824 
131,127 
158,432 
~147,818 
144, 28S 
145, G47 


~146,138 
~ 238,425 


G627,8056 
212,998 


3141, 884 


A746, 225 
B76, 221 
123,155 
GS2, 105 
59,2744 
ABS,189 
149,876 
AAT, BB1 


~145,179 


A24, 232 


141,846 


195,899 


Agi,a75 
115,822 
1f4,15¢ 
144,148 
1G4,251 
194,741 
162,191 
“76,187 
“76.224 
AQ?., B74 
B65, 851 
G67,825 
B76, BSED 
Has, GIA 
g85,114 
868,112 
gba, 889 
A73,892 
Bb7,0898 
#B3,125 
B57 ,855 
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SPAG2: 


976,957,984, 965,988,9984, 


399998: 065,0999,984,0988,0465,884, 


391@4:589, 
39118:976, 
S7iié: Bs7. 
Soi2a: O79. 
39134:0886, 
39148:079, 
397146:485, 
39152:8076, 
S97158:a72 
397164:084, 
329178: 8459, 
39174:4888, 
SP7182:879, 
37188: 0098, 
39194: 006, 
SI2SAAS AAG, 
SIZHS:OA1, 
S9212: 4808, 
39218: 8088, 
S9224:0095, 
S9ZSH1 G05, 
S9236: 408, 
39242: G32, 
39248: 208, 
39254:208, 
39269:192, 
39266:176, 
SIRI]: AHAB 
39278: 836, 
39284:216, 
39296:248. 
392976: 8486, 
S9302: 054. 
S9SH8Hs B47, 
SISL4 HAG, 
S9S32H: 008, 
SP326: Gas. 
SFSS32: AA, 
SISSB: AAA, 
S9344:5 800, 
SPSS: AAG, 
S97356: BAH. 
S9Sh2: Ga, 
2936S: AA, 
29374: 408, 
SVSBAs aia, 


398 


g65, 
G65, 
“73. 
,2#68, 
ag? 
BS7, 
O74, 
aa? 
a7s. 


,980, 


BIS, 
B73. 
gas, 
Gad, 
A’As. 
Bai. 
aD 
BAB 
GA, 
Bai, 
Bas, 
ae, 

AAA, 
AVS, 
142 
136, 
224, 
168, 


~848. 


BAM, 
sae. 
1? 
B49, 
g55, 
48, 
AUD, 
Bas. 
AAD, 
BA 
AA 
BAD 
BAB, 
i Gh 
BAG, 
HG, 
AAG 
AD. 


Sao, 


O76, 


@,184, 


GBA, a72 
G66, 982 
956,088, 
79,982, 


~865,8735, 


66,086, 
82,879, 


~967,876, 


65,8083, 
880,876 
GB83.,08469, 
A84,8a883, 
Bb57,876, 
OAL, aa5, 
GA8, ai, 
O22, AUS, 
agi? 
Aaa1, awa, 
BA, AA , 
maai,aai, 
AG, AGS, 
aut, Age, 
GG AAD, 
176,244, 
129, 
198, 
ASS, 
iS2, 
2 
AS4, 
age, 
154, 
“5a, 451, 
W56,8057, 
Gb59,876, 
Aga, Aaa, 
dad, AGH, 
gw, ga, 
GAM. AA, 
Aga, AAW 
HAA, AAG, 
Aaa, AAA, 
Ada, ABA, 
Aw, AA, 
AGA, AAG, 
AAA, GAD, 
AAG, AA, 


225. 


136, 
B14, 
112, 
Ag? , 


.f980, 


8ad, 


.965, 888, 
~975,866, 


874,065, 
65,869, 
AS4, M64, 
g83,ea7 
AA2,.B74, 
AbLB,847. 
76,088, 
aB2 
868,083, 
388,884, 
086,078, 
i eee 
A938, 005 
AAD, AA, 


,9G4, BBA, 


DAA, AAD, 
JAAD, HAB, 
Az, Asa, 
BAA, AAD, 
AAG, AAA, 
141,168, 
144,195, 
132,134, 


232,2 s 
Q24, 


BO? . 
14, 


AT? . 
a45, 


ani, 

998,066, 
GAW, AS4, 
184,235 
gs 2 5 
“AGS. 
Beg 
BA, 
AaG 
a 
AAG 


ASS, 
Ab6, 

AAD, 
BAA, 
aaa, 
AAD 
aad, 
ADA, 
BAB 
BAD. 
AAA, 
BaD, 
AAG, 
ABD. 


AAG 
a, 
AAG, 
ADD 
AAA, 
Aa 
AGA, 


85 


” 
oo ee 


Ad, 2 


132 
149 
131 
116 
129 
139 
154 


180 


19% 
165 
ial 


224 


2 
22 

2 oe 
188 
B 
gs? 
pag 
4 
gS 2 
a7o 
ays 
6S 
133 
197 
iss 
gig 
142 
124 
iit 
gi24 
ge? 
24 
17s 
158 
1464 
152 
1358 
144 
178 
176 
182 
188 
194 
aie) 
2H 
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S938 BAG HAA. AAA, GAM, AIH. Ada, 


39392: Gam, 
39398; 900, 
S94G4: ae, 
SO4i Gs aaa. 
39416: 488, 
394227: 008, 
394298:211, 
39434:193, 
S944G: 245, 
39446:645, 
39452:845, 
39458:194, 
394454:146. 
aa, 
394762229, 
39482:236, 
39488:204. 
39494:031, 
S9S5UG2 G31, 
39596:235, 
39512:224, 
S9S518:831, 
39524:188, 
395382166, 
39536:197. 
S9542:196, 
39548:198. 
39554:031, 
S956H2196, 
395663 225, 
39572:225, 
S9578:175, 
39S84:431., 
39598: 2711. 
39596:168,197, 
39692:158.173,173, 


SI4AT Bs 2 


HAG. GIs, AIA, As, Ade, 
BAG, GIA GIA, Aaa, aang, 
GA GHG, AGG, daa, aga, 
GAH. AAS, 
BAA, AAA. 
BAM, HAS 
244,225, 
228,228, 


ae, O45. 


242,22 
2H7,245, 
14a, 218, 
ade, 2S, 


aT 


, nt 
aot sy 228. oe 


395, 


ous 22 


A@S1.a51, 
229.228. 
229,236, 


351,031, 


199,199, 
196,271, 
218,215, 


198.198, 
198,989, 


G351,1468, 


245,248, 


244,229, 


226,22 


ae s 


148,008. 
GS1.1468, 


249,238, 


242, 


25, 


: 


831,831, 


Mea, Aga, AA, 
GIA. GHA, AAD, 
204,239, 
242,244, 
242,229, 
G45.045, 
845,045,945, 045, 
645.845,945,045, 
238,227, 
244,146, 
225,238, 
258,228, 


2£rl0s 


229,236, 


as 


1,831, 


A2, 2H6, 
160,234, 
AAA, AS1, 
32,1388, 
188,189, 
211,263, 
207,219, 
190,194, 
ASi,ASi, 
173.173. 
236,235, 
169,149, 
234,166, 
@S1,831, 
173,173, 
244,225, 
242,239, 


160,900, a08,076 


158, 
148, 
245, 
G45, 
G45, 
G32, 


729 
Loe a 


239, 
231, 
229, 
16a, 
Aas, 
ai, 
225, 


225, 


AS1, 
188, 
198, 
148, 
149, 
198, 
asi, 
164, 
2274 
284, 
i73, 
31, 
148, 
248, 


242, 


218 


ar ae 
oe 


238 
25 

242 
2498 
aot 
AS 
aos 
183 
ASS 
a2o 
112 
gis 
Woe 
165 
GIh 
14a 
gia ah 
124 
115 
a7ys 
G85 
224 
213 
2h 
234 
gas 
a> gi 
G4 
117 
59 
128 
Bas 
214 


Program B-5. Apple LADS: Hex DATA 


79FD- 4C 
7FAQO- AGP 
7AQSB-— DO 
7A1O-— 8D 
7ALS-— 4D 
7AZO-— OF 
7A2ZEB- 99 
7ASO- FS 
7A38— DO 
7AAO-— 20 


FS 
00 
FA 
E4 
8D 
B9 
FS 
BE 
E7 
38 


B82 

AD 32 79 
AI 00 &5 
8F A? 7A 
ES SF A? 
00 904 C9 
8E C8 4C 
C8 B? 00 
8s 84 F9 
83 A? 00 
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7A4SS— 
7ASO- 
7FASg— 
7RO60—- 
7A68-— 
7A70— 
7A/8- 
7ABO-— 
7AS8B-— 
7AIO- 
7A9S-— 
7AARO- 
7AAG— 
7ABO-— 
7ABB- 
7ACO- 
7ACE- 
7ADO-— 
7ADS-— 
7AEQ- 
7AEB-— 
7AFO-— 
7AFE-— 
7FBOO- 
7BOS- 
7B10- 
7BisB- 
7B20- 
7B28- 
7B30- 
7B38- 
7B40- 
7B46- 
7BS0- 
7B58—- 
7H6O- 
7B68- 
7B70- 
7H78- 
7EBB0- 
7B838- 
7BSO- 
7B98- 
7BAQ-— 
7BAS8— 
7BERO-— 
7BBS— 
7BCO- 
7BC8- 


400 


Appendix B: LADS Object Code 





7BDO-— 
7BDE— 
7BEQ-— 
7BES— 
7EFO— 
7BFa-— 
7C00Q- 
7CO8- 
7C10— 
7C18—- 
7C20— 
7C028- 
7C30— 
7C38—- 
7C40—- 
7C4a- 
7CSO-— 
7CS8- 
7C60— 
7C68- 
7C70-— 
7C78-— 
7C80-— 
7C8a- 
7C9O— 
7C98- 
7CAO— 
7CA8—- 
7CBO- 
7CBE- 
7CCO- 
7CC8- 
7CDO- 
7CD8B- 
7CEO-— 
7CEB- 
7CFO- 
7CFE-— 
7DOO-— 
7DO8- 
7D10— 
7D18- 
7D20—- 
7D28—- 
7D30—- 
7D38- 
7D40-— 
7D48- 
7DS50— 


DO 
BD 
SF 
AD 
10 
AD 
77 
DO 
BF 
FE 
4C 
7CE 
10 
8D 
4C 
38 
FC 
03 


SS 


c9 
CE 
20 
SF 
A? 
AD 
SA 
C9 
CE 
20 
8F 
oc 
CE 
09 
CE 
AD 
AD 
AD 
FO 
ES 
AS 
02 
81 
O1 
A? 
20 
8D 
FS 
04 
OA 
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7D5S8- D& 81 8S DO FA 20 1C B82 
7D60-— AZ O1 20 AZ B1 20 46 B89 
7D68- AD F3 SF FO 11 C9 O1 DO 
7D70-— O35 AI SC 4C 78 7D AD SE 
7D78- 20 Dé 81 20 8B 89 AD FC 
7DBO-— BF FO 13 20 OA 89 AD SB 
7D88- 29 Dé 81 ADI OO 85 FB AD 
7D90-— O2 85 FC 20 F9 BSB 20 50 
7D98- 89 AD D4 S&F DO OS 4C SF 
7DAO— 7A AD EY SF DO 2C EE E?7 
7DAB- SF 38 AS FD ED DO @&F 8D 
7DBO- FD SF AS FE ED D1 8F &§8D 
7DBS—- FE SF AD DO SF 8&5 FD AD 
7DCO-— Di SF 8&5 FE 20 1C 82 Ad 
7DC8- O1 20 35 82 20 ES 80 4C 
7DDO- 40 7A 20 1C B2 AD O1 20 
7DDB- 35 82 AD O2 20 35 82 AD 
7DEO- FS 8F FO 15 20 iC 82 A2 
7DEB-— 04 20 AG B81 AI OD 20 D6 
7DFO- 81 20 1C 82 AD 04 20 35 
7DFS- 82 4C DO O38 BF 38 BE C9 
7EOO- 56 FO 62 88 88 BO 38 GE 
7EQOS8- C9 29 DO O38 4C EO 7B AD 
7E10-— D&S SF DO OF AD CF &F C9 
7E18-— 02 FO 4F C9 O35 FO 4B C9 
7E20-— 01 FO 77 AD CF BF C9 Q1 
7E28- DO OC AD CE BF 18 49 18 
7ESO- 8D CE 8F 4C DC 7C AD CF 
7ES8- 8F C? OS FO 08 AD 31 20 
7E40-— DO 7E 4C 51 7E AD CE SF 
7E48- 18 69 1C 8D CE S&F 4C DC 
7ESO- 7C 20 72 89 20 S39 89 AD 
7ES8- B4 85 FB AY SF 85 FE 20 
7E60- F9 8&8 4C E2 7C AD DB S&F 
7E68- DO 33 AD CF S&F C9 O2 DO 
7E70- OC AP 10 18 6D CE SF 8D 
7E78—- CE 8F 4C 77 70 C9 O1 FO 
7EBO- 10 C9 O3 FO OC C9 OS FQ 
7E8S8- 08 AD 32 20 DO 7E 4C Si 
7E9O-— 7E A? 14 18 6D CE SF 8D 
7E98- CE &F 4C 77 7C AD CF S&F 
7EAQ- C9 O2 DO OC AD 18 18 SD 
7EASB-— CE S&F BD CE SF 4C DC 7C 
7EBO- C9 O01 FO 10 C9 O03 FO OC 
7EBB—- C9 O35 FO 08 AD 33 20 DO 
7ECO- 7E 4C 31 7E A? 1C 18 4D 
7EC8- CE 8F 8D CE 8F 4C DC 7C 
7EDO- 8D E8 SF BC EA OF GE E? 
7EDG- &F ADI BA 20 DS 81 68 AA 
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7EEO- 
7EES—- 
7EFO- 
7EF§—- 
7Foo- 
7FO8- 
7F10-— 
7Fi8- 
7F20—- 
7F28- 
7F30— 
7F38- 
JF40-— 
7F48- 
7FSO- 
7FO8— 
7FS6O- 
7F68- 
7FF7O- 
7F78- 
7FeO- 
7Fes-— 
7F9O- 
7F98- 
7FAQ-— 
7FAS- 
7FBO- 
7FBB— 
7FCO- 
7FCE- 
7FDO-— 
7FD8- 
7FEO- 
7FES8— 
7FFQ- 
7FFE-— 
8000- 
g008g- 
8010- 
8018- 
B020-— 
8029- 
8030-— 
8038-— 
8040- 
8048- 
8050- 
8g0s8- 
8060- 


A8 
ED 
E9 
8D 
30 
A? 
20 
7C 
36 
El 


(4 
J 


AQ 
EE 
Os 
Fil 
FD 
AE 
8D 
4C 
72 
85 
88 
17 
Fil 
8D 
AC 
AD 
4C 
AD 
Ag? 
ES 
A2 
ED 
rays) 
O2 
7F 
6D 
FO 
BF 
cs 
FO 
ED 
AD 
4C 
50 
20 
89 
FC 
68 
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8068-— 
8070—-— 
8078-— 
80B80-— 
8088— 
Bo90- 
8098- 
80A0- 
B0AB- 
BOBO 
BOBS— 
80C0-— 
80CB8-— 
BODO- 
BODB- 
B0EO-— 
BOEB-— 
BOF D— 
8S0OFS-— 
81900- 
8108- 
8110- 
8118- 
8120- 
8128- 
8130-— 
8138- 
8140- 
8148- 
8150- 
8158- 
8160- 
81468- 
8170- 
8178- 
8180- 
8188- 
B8190- 
8198- 
81A0-— 
81A8- 
8150- 
81B8- 
81C0- 
81C8E-— 
B1DO- 
8i1Dse— 
BIEO- 
B1EB-— 
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AD 
4C 
4C 
20 
SF 
SF 
FS 
AD 
8F 
D7 
6D 
6F 
ED 
20 
8F 
89 
3o 
85 
60 
2D 
60 
2D 
2H 
8D 
90 
FF 
A? 
ag 
FO 
8s 
ari) 
85 
FS 
a0 
Da 
91 
bc 
Bi 
F7 
6D 
04 
A? 
90 
o1 
7a 
7O 
90 
AD 
si 


F3 
77 
2C 
D3 
FO 
Cs 
BF 
DB 
FO 
6F 
D8 
FO 
Da 
72 
85 
60 
82 
2D 
A9 
20 
A® 
20 
84 
oF 
a5 
BF 
990 
BD 
11 
2D 
90 
2A 
85 
AD 
F9 
2A 
Os 
2C 
A2 
oO 
DO 
Bl 
BE 
ba 
90 
90 
AD 
oF 
6D 


8F 
7E 
80 
80 
O1 
Bl 
FO 
8F 
13 
8D 
SF 
01 
O2 
89 
FC 
20 
A? 
20 
13 
oF 
25 
BA 


a 
Ps 


90 
2D 
FO 
85 
FF 
Ag 
20 
60 
ce 
FH 
AO 
AQ 
ca 
85 
71 
on 
60 
OF 
8D 
EY 
oc 
AE 
60 
6E 
90 
OF 


DO 
EC 
EE 
AC 
cea 
ED 
OA 
8D 
18 
D7 
8D 
50 
Cé 
A? 
29 
ic 
O1 
oF 
85 
61 
85 
di 
AQ 


A? 3 


20 
27 
2D 
BF 
3B 
8A 
60 
Bl 
Ag 
91 
oo 
C4 
2B 
ZA 
2o 
BA 
Ag 
v4 
8F 
20 
E9 
8C 
70 
20 
970 
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B1FO- SD DO O92 AP OA BD 90 COA 
G1iF8- AD Ci Ci 30 FB AD 4F 90 
B200- 60 AD GE 70 C9 O04 DO O9 
8208- AD 6F 9Q 20 EC 81 4C D2 
68210- 81 AD &F 90 09 80 20 FO 
8218- FD 4C D2 8&1 AY 00 BD bE 
8220- 90 BD 6D 90 AG FO 8D 3S 
8228- AA AD FD 8D 54 AA 460 AD 
B8230- 00 Co C9 83 60 C9 Ql DOA 
8238- 03 4C 32 81 C9 O2 DO OF 
8240- 4C 48 81 4C SE 81 8D S&F 
8248- FO AG 00 CS BS DO 1B A® 
8250- 02 CS BY DO 15 AG OO Bl 
8258- BS C9 20 DO 95 E6 BS 4C 
8260- S37 82 C9 2F 90 04 CI SA 
8268- 70 33 AD 00 O2 CF? 41 DO 
8270- 37 AD O1 O02 C9 33 DA 30 
8278- AD O2 O2 CF 4D DO 29 AD 
8280-— O03 O02 C9 20 DO 22 AD OO 
8288- B? 04 O02 C7 00 FO OF O9 
8290- 8O 99 00 04 C8 4C 86 82 
8298- AP AD 99 00 04 99 O1 04 
B2AQ- 99 O02 04 68 68 4C 00 7A 
82A8—- AD &F 979 CF 3A BO OD CF 
82B0- 20 DO O03 4C Bi OO 38 E? 
2BB- 30 38 ED DO 60 A& AF B86 
B2CO- 6&9 Ad BO 86 GA 18 20 OC 
82C8- DA 20 D1 82 68 68 4C GA 
82D0- D4 AO 00 84 94 AD O2 BS 
82D8- 95 B61 BS 71 74 CB CY 00 
B82EQ-— DO F7 88 88 Bi 94 C9 20 
BZE8- FO F9 CB AP OO F1 74 CB 
B2FO- C8 CB CS Ch 60 AD 46 BS 
B2F8- BER AP 82 85 BC AD 4C BS 
B300- BA AG FC 85 73 A? 79 85 
8308- 74 4&0 AO OO AZ FF ES BP 
8310- C9 8C CD F1 SD FO OA C8 
8318- C8 C8 EO 39 DO FO 4C EB 
8320-— 7A C8 BY C9 8C CD F2 BD 
8328- FO O06 C8 CB DO EQ FO EE 
6330- C8 BI C9 BC CD F3 8D FO 
8338- 05 C8 DO D2 FO EO AD F4 
8340-— 8D C9 20 FO 04 C9 OO DOA 
348- DS BD 71 8D 8D CF SF BC 
B8350- A? 8D BC CE SF 4C CC 7A 
6358- AZ O01 20 AZ B81 AZ 906 BE 
8360- E9 SF 20 B9 81 AE ED GF 
8368- CA DO F4 20 BF 81 C9 2A 
8370- FO OF AY 12 85 FB AD OF 
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8378- 
8380- 
83388- 
8390-— 
8398-— 
B3A0- 
83A8- 
8B3B0-— 
83Ba—-— 
83CoO-— 
83C8- 
83DO0-— 
83D8—-— 
S3EO-— 
83E8— 
B3FO-— 
83Fe8- 
8400- 
8406- 
8410- 
84i8- 
8420-— 
8424- 
8430-— 
8438- 
8440-— 
8449- 
8450- 
8458- 
84460-— 
8468- 
8470- 
8478- 
8480- 
8498- 
8490-— 
8498- 
84A0- 
84Aag- 
84BO— 
8458-— 
84Co- 
84ce- 
84DG-— 
84DE- 
a4Eo- 
B4E8- 
84F0-— 
84Fea- 
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85 
60 
4c 
oo 
Ol 
8D 
8D 
12 
10 
4C 
BF 
DO 
OE 
18 
oD 
8D 
BF 
8F 
De 
7E 
SF 
F? 
D2 
20 
Re 
20 
os 
4C 
E8 
FC 
94 
FO 
835 
20 
89 
SF 
ES 
O7 
i0 
ca 
OS 
E8 
7A 
FO 
BF 
c9> 
c9 
Fl 
BF 


88 
FE 
OF 
6D 
Bi 
10 
11 
AD 
6F 
E? 
68 
OE 
SF 
6D 
8F 
oD 
oD 
AD 
8F 
DD 
8C 
20 
81 
20 
4C 
20 
c9 
3B 
8F 
BF 
84 


90 


cs 
OA 
A? 
8D 
2a 
AC 
87 
20 
ra8) 
68 
Fo 
DO 
O53 
Cc? 
29 
44 
86 
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8500- C8 4C Di 8S 398 ES 7F 8D 
8508- EO SF AZ2 FF CE EO &F Fo 
B310- 06 ES BD Do BDO 10 FA 30 
8518- F3 EB BD DO DO BO O07 FF 
8S520- Fl 8D C@ 4C 19 85 29 7F 
S5278- 60 AY OF BD FS BF 4C 44 
B530- 84 49 01 8D F3 BF 4C 44 
8538- 8&4 AD F3 BF FO 20 AD 2A 
8540- 99 Fi1 8D C8 EE DD SF AD 
6@548- F3 SF CO o1 FO 08 AS FE 
BSS0- 8D D7 BF 4C 44 84 AS FD 
8558- 8D D7 SF 4C 44 84 20 44 
8560- 84 AD EE? SF FO OB A9 2A 
8568- 20 DS B81 29 466 B89 2O Sa 
8570- 87 AD DD SF DO 20 AD Qa 
8578- BY Fi 8D CF 20 FO 04 CA 
S580- 4C 78 85 C8 84 FB AT Fi 
6S58a- 18 65 FB 85 FB AD BD 69 
6S90- 00 85 FC 20 81 83 AD E7 
S598- GF FO O8 AD F4 SBF FO O53 
B5a0- 20 AO 87 AD D7 BOF 85 FD 
8SA8-— AD DS BF 8S FE 68 68 4C 
S8SHO- SF 7A 39 Fi 38D C8 CO FF 
@5B8- DO FB 99 Fl BD 20 BF Bl 
BSC0- 20 BF 81 FO O04 AP OO ED 
S3C8- F7 BF 60 AD O1 BD D4 &F 
eSpDo- 60 A2 00 2O BY B1 FO 2C 
S5D8- C9 2A FO 28 C9 20 FO FS3 
BSEO- C9 3B FO 20 C9 2C FO OF 
SBSEG- C9 29 FO OB 9D DE SE ESB 
BSFO- 99 Fl 8D C8 4C D3 85 BE 
SSFS-— DE SF 79 Fi SD C8 20 18 
8600-— 86 4C 44 64 8D ES OF AI 
8608- ©9 BE DE BF 99 Fl 8D 20 
8610- 18 86 AD ES BF 4C 47 8&4 
8618- AY 00 8D D7 SF 8D DS &F 
846470- AA OE D7 BSF 2E DS GF OE 
6628- D?7 8F 2E DS SF OF D7 BF 
8630-— 27E DS GF OE D7 BF 2E DB 
84398- 6F BD DE BE C9 41 90 O2 
6640- E9 OF 329 OF OD D7 BF 8D 
8648- D7 SF ES EC DE S&F bo Di 
8650- EE DD SF AY G1 460 CO O0 
8658- FO O& AE EV 8F DO 09 48 
8660-— 98 48 270 14 7F 468 ASB 68 
8668- 99 Fi 8D C8 20 B9 Bi 99 
8670- Fi 8D CS C9 42 DO 4B AP 
8678-— ©0 8D ED SF AD E7 OF FO 
6680- 17 8C EA SF AD FO OF FA 


407 


Appendix B: LADS Object Code 





84688- 
8670- 
84698- 
86A0- 
8é6A8- 
846B0- 
8é6B8- 
8é6C0-— 
86C8- 
86D0- 
84D8- 
BdoEO- 
84E9-— 
84F0- 
846F8- 
8700- 
8708- 
8710- 
8718- 
8720- 
8728- 
8730- 
8738- 
87490- 
8748- 
8750- 
8758- 
8760- 
8768- 
8770- 
8778- 
8780- 
8788-— 
B790-— 
8798- 
87 AG-— 
87A8- 
87 BO- 
87E6— 
87CoO-— 
87C8- 
87D0-— 
87D38~- 
B7EO-— 
87E8- 
87F O- 
8/FRB- 
BeO0-— 
8B80g- 
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59 
20 
81 
FS 
co 
Os 
4C 
94 
4c 
AE 
EB 
99 
cz 
84 
8F 
B9 
C9 
FS 
8D 
AD 
EB 
99 
co 
9D 
EE 
Ag 
BC 
8F 
oo 
FA 
O3 
3A 
BF 
8F 
4c 
8F 
82 
D7 
D8 
00 
OF 
EE 
a2 
E9 
EO 
10 
30 
87 
Bg 


a9 
OA 
99 
20 
22 
4c 
88 
84 
85 
86 
as 
F1 
88 
A2 
ES 
B1 
3B 
SF 
80 
BO 
ae 
Fi 
oo 
06 
8F 
06 
EA 
20 
Az 
4c 
20 
FO 
EE 
FO 
65 
C9 
A2 
@F 
@F 
20 
CE 
AD 
Az 
7F 
@F 
FA 
Oo? 
29 
Fil 


20 
89 
Fi 
Bg 
DO 
85 
87 
AE 
87 
AE 
4c 
8D 
AC 
00 
AD 
FO 
DO 
SE 
SE 
SE 
4c 
8D 
FO 
8F 
8D 
85 
8F 
c3 
O5 
FC 
EB 
O3 
FB 
og 
7D 
o2 
O2 
ES 
ES 
Dé 
Dé 
Dé 
Ol 
8D 
FO 
30 
99 
7F 
eD 
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8810- 04 C8 4C O04 88 CB BS Fi 
8818- 8D 20 235 88 BO 12 7D DE 
88270- GSE ES 4€ 15 88 C9 3A Bo 
S678- 06 39 ES 30 38 E9 DO 6n 
B8830- A? OO 9D DE BE AD DE 85 
8S638- FH AS BE 8S FC 20 21 83 
8840-— AD D7 8F BD FO SF AD DA 
8848- @F 8D Fil OF 460 4D EF BF 
8850- DO 04 20 EB 88 60 AD F9 
8858- OF FO 11 20 1C 82 AZ Ol 
8860- 20 AZ 81 AE CE GF 20 15 
Be@68- 89 20 OA BF AE CE BF 270 
8870- C3 868 60 AD EY 8F DO O4 
6876- 20 ER 88 60 AD FY BF FO 
BB8CG-— O06 AE D7 SF 20 13 89 AE 
88s88- D/Y SBF 4C C3 88 AD EY BF 
8890- DO O07 20 EB 88 20 EB 88 
8898- 460 AD FS SF FO O& AE D7 
B8A0- BF 20 13 89 AE D7 SBF 20 
8e@ae-— C3 88 AD FO SF FO OE AD 
BBBO- FA GF FO O35 20 OA BF AE 
S8B8- DS SF 20 13 89 AE DB GF 
BSco- 4C C3 8&6 SE Dé BF AD FS 
SSCE- SF FO OS AGO OO BA 91 FD 
BBpo0- AD F4 SF FO 16 20 1C 82 
G@8pe- 42 O02 20 AS 81 AD Dé BF 
BBEO- 20 D6 81 20 1C B82 AB Ol 
SSE8- 270 AZ 81 18 AD O1 S&S FD 
BSFoO- 85 FD AS 00 465 FE 85 FE 
SBFG- 60 AO 00 BI FB FO 0A 20 
B900- Dé 81 20 85 ef CS 4C FB 
8908B- 88 40 AY 20 20 D6 B1 20 
8910- 85 89 60 BE ES 8F AD FA 
8918- BF FO OB 8A 20 3D SA FO 
89270- AE 89 AE ES BF 60 AP OD 
8978- 3270 24 ED 270 AE 89 AE EP 
8930- GF 450 AD FA SF FO GE AS 
8938- FE 20 3D 8A AS FD 20 3 
8940-— BA 20 El 8&9 60 ASB FD AS 
8948- FE 20 24 ED 20 E€1 89 60 
B950- A? OD 20 Dé B81 20 85 89 
S958- 60 AE D2 BF AD DS BF 20 
8960- 24 ED 20 17 BA 60 49 Fi 
8948- 8S FB AD SD B85 FC 20 FO 
8970- 88 60 AD O7 20 Dé 81 AD 
8978- 12 20 D& 81 20 &6 89 AD 
89680- OD 20 Dé 81 60 AE EZ S&F 
890E- DO O1 60 AE FS SF DO Ol 
gs990- 6c 8D ES OF 20 1C 8? AZ 


409 


Appendix B: LADS Object Code 





69°78- 
B9A0- 
89A5-— 
B9RO— 
89Ba- 
B9CO- 
e7ca-— 
BSDO- 
89D8- 
B9EO-— 
89E8- 
S9FO- 
89Fa- 
BADD0- 
8A08- 
BA1LO-— 
8A18-— 
BAZO- 
BAZB- 
BASO— 
8A38— 
BA40-— 
8A48- 
BASO-— 
BAS8—- 
BAdO- 
B8A68- 
BA70-— 
8A768- 
8A80- 
8sABs-— 
6BA90-— 
8A98- 
BAAQ- 
BAASB— 
BABO— 
8ABSB-— 
BACO- 
8SACE— 
BADO- 
SAD8- 
BAEO— 
BAEB- 
BAFO- 
SAFS— 
BROO-— 
8B08- 
8B10-— 
6B18- 
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BB2O- B61 A? 44 20 D&S 81 AF 20 
SB28- 20 D& 81 20 BD Gi 20 BF 
SBS0-— BA AD E?7 BF FO OS EE D4 
8B38- 6F EE E/7 SF 38 AS FD ED 
8B40-— DO SF 8D FD OF AS FE ED 
8B48- Di SF 8D FE SF AD DO GF 
8B50- 65 FD AD D1 S&F 8&5 FE 20 
8B58- CE 84 60 AD E7 GF FO 1E 
B8B60- 20 BF 81 99 Fi SBD AQ QO 
8B468- 20 BS 81 FO 14 C9 7F 90 
8B70- 03 20 04 85 99 F1 SD 99 
8B78- F3 SE C8 4C 68 8B 4C D4 
BSBS0- BB 84 FF 20 66 89 20 SO 
8SBG8- 89 EE F4 SF 20 FC 80 AZ 
BEVO-— O2 20 AG 81 AD DO GF 20 
8B978- Dé 81 AD D1 SF 20 Dé @1 
SBA0O- AD FD 8F 20 D& S81 AD FE 
SBAS- SF 270 Dé 81 20 1C B2 AZ 
S8BBO- O01 20 AZ 81 20 B2 BS 466 
SBBS- 68 AZ OO BSE D4 SBF 4C BF 
BBCO- 7A AD E7 BF FO OE 20 OB 
SBCS8- 81 EE FS BF 20 1C 82 A2 
SBDO- O01 20 A2 B81 20 BY 81 FO 
B8BD8- 07 C9 SA FO O04 4C D4 GE 
SBEO- 20 B2 8S 68 68 A2 OO SE 
SBES8—- D4 SF 4C BF 7A AD ZE 20 
BEFO- Dé B81 AP 4F 20 Dé G1 20 
SBFEa- 350 89 AP O1 BD Fé AF 4C 
SCO0O- D4 GB AD E7 BF FQ CD 20 
8C08- BY 81 C9 50 FO OC C9 4F 
8C10- FO SA C9 33 FO GA C9 48 
8C18- FO 4C AG 2E 20 Dé 81 AD 
BC20-— 4& 20 D& 81 AF SQ 20 Db 
8C28- 81 20 50 89 CE FS 8F 206 
BC30- 1C B82 AZ 04 20 AS G1 AP 
8C38- OD 20 Dé 81 AI O04 20 35 
BC40- 82 20 1C B82 AZ O1 20 A2 
8C48- 81 4C D4 8B AD 2E 20 Db 
@Cs0- 81 AP 4E 20 Dé 81 AD 4F 
8Css—- 20 Dé Bi 20 350 89 AP OO 
BC60- SBD Fé BF 4C D4 BB AD ZE 
8C68—- 20 D6 81 AS 4E 20 DS B1 
8C70- A? 48 20 Dé St 20 50 89 
8C78- A? 00 SD FA SF 4C D4 GB 
BCBO- AY 2ZE 20 Dé B81 AS 4E 20 
8CB8E- Dé B1 AY 33 20 D6 81 20 
BC90- 30 89 AF O00 BD FS BF 4C 
8C98S- D4 8B AG 2ZE 20 Dé 81 AG 
BCAG-— 33 20 Dé B1 20 50 89 AD 
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8scAs-— 
BCBRO- 
SCBAa-— 
8cco— 
scce- 
BCDO-— 
8CD8a- 
BCEO-— 
8CEB- 
BCFoO- 
8CF8-— 
SaDpoo-— 
SDo8- 
8Dpio- 
8p18- 
8BD20- 
8D28- 
8D30-— 
8D38-— 
8D40-— 
8D48- 
8D50- 
8DS58- 
BDS0-— 
8Dé48- 
8D70-— 
8D78- 
8D80- 
spea- 
8D90- 
8D98-— 
8DA0- 
SDAB-— 
8DBO- 
8SDBSs-— 
BDCO- 
8DCc8-— 
gsDDO- 
8DD8- 
8DEO-— 
SDES—- 
8DFO- 
8SDF8S-— 
BE0G-— 
8E08— 
8E10— 
8E18-— 
8E20- 
SE2E- 
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BESO-— 00 00 00 00 00 00 00 00 
SE38- 00 00 00 00 00 00 00 G0 
BE40- 00 00 00 00 00 00 00 00 
BE48- G0 00 00 00 00 90 900 O00 
BESO-— 00 G0 00 00 00 00 00 00 
8ES8- 00 00 00 00 00 00 G0 00 
BES6O-— GO 00 00 00 O00 O00 00 00 
SE68- 00 00 00 OO 00 00 00 O00 
8E70-— 00 00 900 00 00 00 00 00 
8E78- 00 900 00 00 00 00 00 OO 
BESO-— 00 GO 00 00 00 00 OO O00 
BEBSB- 00 00 00 900 00 00 00 00 
BE9O—- 00 00 00 900 00 00 00 00 
8E98- 00 00 00 00 00 00 00 00 
BEAQ—- 00 00 O00 00 00 00 00 00 
BEAB- G0 00 00 00 00 00 00 00 
BSEBO- 00 00 00 00 00 00 00 00 
BSEBB-— 00 00 00 00 00 00 00 00 
SECO- 00 00 00 00 00 00 00 00 
BECS- 00 00 00 00 00 00 00 OO 
BEDO-— 00 GO 00 00 G0 00 O00 00 
8EDS—- 90 00 00 00 00 00 00 00 
BEEO- 900 00 00 00 00 00 00 O90 
SEES-— 00 00 00 00 00 00 00 00 
BEFQ-— 00 90 00 00 00 00 00 00 
8EFB8- 00 00 00 00 00 00 00 00 
B8FOO-— 00 900 00 90 00 00 00 00 
8FO8-— 00 00 00 00 00 00 00 00 
BF10-— O00 OO 4E 4F 20 33 354 41 
Q@Fi@-— S2 54 20 41 44 44 S32 45 
BF20- 33 353 00 2D 2D 2D 2D 2D 
8F28- 2D 2D 2D 2D 2D 2D 2D 2D 
BF30-— 2D 2D 2D 2D 2D 2D 2D 20 
SF38- 42 S52 41 4E 43 48 20 4F 
BF40- S55 54 20 4F 46 20 S52 41 
BF48- 46 47 45 00 355 46 44 45 
BFIO- 46 49 4& 45 44 20 4C 41 
SFSB8- 42 45 4C 00 1D 1D 1D 1D 
BF60- 1D 1D 1D 1D 1D 20 4E 41 
BF468-— 4B 45 44 20 4C 41 42 45 
BF7O- 4C 00 1D 1D 1D 1D 1D 20 
8F78- SC SC 3C 3C 3C 3C 3C 3C 
BFSO- 20 44 49 33 45 20 45 52 
SFBS- S2 4F 52 20 SE SE SE 3E 
BF9O- SE 3E SE SE 20 00 1D 1D 
SF98- 1D 1D 1D 20 2D 2D 20 44 
BFAO- 55 50 4C 49 43 41 34 45 
SFAB- 44 20 4C 41 42 45 4C 20 
SFBO- 2D 2D 20 00 1D iD 1D 1D 
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SF BE- 
8FCO- 
8FCa- 
8SFDO- 
8FD8-— 
BFEO-— 
SFES— 
BFFO- 
SFFa- 
7000- 
7008- 
9010- 
9018- 
9020-— 
9028- 
9030- 
9038- 
9040-— 
9048- 
9050- 
7058- 
9060- 
9068-— 
9070- 
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Machine Language 
Editor for Atari and 
Commodore 


Charles Brannon 


Have you ever typed in a long machine language program? 
Chances are you typed in hundreds of DATA statements, 
numbers, and commas. You’re never sure if you’ve typed 
them in right. So you go back, proofread, try to run the pro- 
gram, crash, go back and proofread again, correct a few typing 
errors, run again, crash, recheck your typing—frustrating, isn’t 
it? 

Until now, though, that has been the best way to enter 
machine language into your computer. Unless you happen to 
own an assembler and are willing to wrangle with machine 
language on the assembly level, it is much easier to enter a 
BASIC program that reads the DATA statements and POKEs 
the numbers into memory. 

Some of these BASIC loaders, as they are known, use a 
checksum to see if you’ve typed the numbers correctly. The 
simplest checksum is just the sum of all the numbers in the 
DATA statements. If you make an error, your checksum will 
not match up. Some programmers make the task easier by 
calculating checksums every ten lines or so, and you can 
thereby locate your errors more easily. 


Almost Foolproof 
“MLX” lets you type in long machine language (ML) listings 
with almost foolproof results. Using MLX, you enter the num- 
bers from a special list that looks similar to BASIC DATA 
statements. MLX checks your typing on a line-by-line basis. It 
won't let you enter illegal characters when you should be 
typing numbers, such as a lowercase L for a 1 or an O fora 0. 
It won’t let you enter numbers greater than 255, which are not 
permitted in ML DATA statements. It will prevent you from 
entering the wrong numbers on the wrong line. In short, MLX 
should make proofreading obsolete! 

In addition, MLX will generate a ready-to-use tape or disk 
file. For the Commodore, you can then use the LOAD com- 
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mand to read the program into the computer, just as you 
would with any program. Specifically, you enter: 


LOAD “filename’’,1,1 (for tape) 
or 
LOAD “filename”,8,1 (for disk) 


To start LADS you need to type SYS 11000 (Com- 
modore). For complete instructions for the use of LADS, 
please read Appendix A. 

For the Atari, MLX will create a binary file for use with 
DOS. Atari MLX can create a boot disk or tape version of 
LADS, but this is not recommended. 


Getting Started 

To get started, type in and save MLX (VIC owners must have 
at least 8K of extra memory attached). When you are ready to 
enter LADS using MLX, Commodore 64 and VIC owners 
should enter the line below before loading MLX: 


POKE 55,0: POKE 56,42: CLR 
Commodore PET/CBM owners should use: 
POKE 52,0: POKE 53,42: CLR 


When you’re ready to type in LADS, the program will ask you 
for several numbers: the starting address and the ending ad- 
dress. In addition, the Atari MLX will request a ““Run/Init 
Address”. 

Below are the numbers you'll need. 


PET/CBM, VIC and Commodore 64: 
Starting address 11000 
Ending address 15985 


Atari: 

Starting address 32768 
Ending address 39607 
Run/Init address 32768 


The Atari version will then ask you to press either T for a 
boot tape, or D for disk; press D. Next, you'll be asked if you 
want to generate a boot disk or a binary file; press F. 

Next you'll see a prompt. The prompt is the current line 
you are entering from the listing. Each line is six numbers plus 
a checksum. If you enter any of the six numbers wrong, or en- 


416 


Appendix C: Commodore and Atari Machine Language Editor 


ter the checksum wrong, MLX will ring a buzzer and prompt 
you to reenter the line. If you enter it correctly, a pleasant bell 
tone will sound and you proceed to the next line. 


A Special Editor 

You are not using the normal screen editor with MLX. For 
example, it will accept only numbers as input. If you need to 
make a correction, press the DEL/BACKS key (Atari) or the 
INST/DEL key (Commodore). The entire number is deleted. 
You can press it as many times as necessary back to the start 
of the line. If you enter three-digit numbers as listed, the com- 
puter will automatically print the comma and prepare to ac- 
cept the next number. If you enter less than three digits (by 
omitting leading zeros), you can press either the comma, space 
bar, or RETURN key to advance to the next number. When 
you get to the checksum value, the Atari MLX will emit a low 
drone to remind you to be careful. The checksum will auto- 
matically appear in inverse video; don’t worry, it’s highlighted 
for emphasis. 

When testing MLX, we've found that it makes entering 
long listings extremely easy. We have tested MLX with people 
lacking any computer background whatsoever. No one here 
has managed to enter a listing wrong with it. 


Done at Last! 

When you finish typing (assuming you type the entire listing 
in one session), you can then save the completed program on 
tape or disk. Follow the screen instructions. (For Atari we sug- 
gest that you use the filename AUTORUN.SYS when saving a 
copy of LADS. This way LADS will automatically load and 
run when you boot up your computer.) If you get any errors 
while saving, you probably have a bad disk, or the disk is full, 
or you made a typo when entering the actual MLX program. 
(Remember, it can’t check itself!) 


Command Control 
What if you don’t want to enter the whole program in one sit- 
ting? MLX lets you enter as much as you want, save that por- 
tion, and then reload the file from tape or disk when you 
want to continue. MLX recognizes these few commands: 

5: Save 

L: Load 


417 


Appendix C: Commodore and Atari Machine Language Editor 


N: New Address 
D: Display 
For the Atari, hold down the CTRL key while you type 

the appropriate key. Hold down SHIFT on Commodore ma- 
chines to enter a command key. You will jump out of the line 
you've been typing, so it’s best to perform these commands at 
a new prompt. Use the Save command to save what you’ve 
been working on. It will write the tape or disk file as if you’ve 
finished, but the tape or disk won’t work, of course, until you 
finish the typing. Remember what address you stop on. The next 
time you run MLX, answer all the prompts as you did before, 
then insert the disk or tape. When you get to the entry 
prompt, press CTRL-L (Atari) or SHIFT-L (Commodore) to re- 
load the file into memory. You'll then use the New Address 
command to resume typing. 


New Address and Display 

Here’s how the New Address command works. After you 
press SHIFT-N or CTRL-N, enter the address where you pre- 
viously stopped. The prompt will change, and you can then 
continue typing. Always enter a New Address that matches up 
with one of the line numbers in the special listing, or else the 
checksum won’t match up. 

You can use the Display command to display a section of 
your typing. After you press CTRL-D or SHIFT-D, enter two 
addresses within the line number range of the listing. You can 
abort the listing by pressing any key. 


Tricky Business 

The special commands may seem a little confusing at first, but 
as you work with MLX, they will become easy and valuable. 
What if you forgot where you stopped typing, for instance? 
Use the Display command to scan memory from the beginning 
to the end of the program. You can stop a listing by hitting 
any key. 


Making Copies 

You can use the MLX Save and Load commands to make 
copies of the completed ML program. Use Load to reload the 
tape or disk, then insert a new tape or disk and use the Save 
command to make a new copy. 
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PET and VIC Users 

The Commodore 64, PET, and VIC data are almost exactly the 
same. There are some lines, though, that are different. Com- 
modore 64, PET, and VIC owners should use the Commodore 
64 data (Program B-1) with MLX. VIC owners should sub- 
stitute the lines found in Program B-2 (VIC) for the same lines 
in Program B-1. PET owners should type in and save the 64 
data, then make the necessary changes shown in Program B-3a 
and B-3b using the built-in PET monitor. Commodore 64 users 
should use the data in Program B-1 as is. 

We hope you will find MLX to be a true labor-saving util- 
ity. Since it has been thoroughly tested by entering actual pro- 
grams, you can count on it as an aid for generating bug-free 
machine language. And be sure to save MLX; it will be used 
for future all machine language programs in COMPUTE], 
COMPUTE!’s Gazette, and COMPUTE! Books. 


Program C-1. Commodore 64 MLX 


Refer to Appendix E “How to Type In BASIC Programs” before entering this program. 


180 PRINT" {CLR} £69";CHRS$ (142);CHRS(8);:POKE53281,1 
: POKE53280,1 

181 POKE 788,52:REM DISABLE RUN/STOP 

110 PRINT" {RVS}{39 SPACES]}"; 

120 PRINT" {RVS}{14 SPACES} {RIGHT} {OFF} K*9£{RVS} 
{RIGHT} {RIGHT}{2 SPACES}E*3{OFFI]E*ILTRVSIE£ 
{rvs}{14 SPACES}"; 7 7 

136 PRINT" {RVS}{14 SPACES} {RIGHT} KGI{RIGHT} 

{2 RIGHT} {orr}e{RvS}£k*ILOFF}E*I{RVS} 
{14 SPACES]}"; 

140 PRINT" {RVS}{41 SPACES}" 

200 PRINT"{2 DOWN} {PUR} {BLK}{9 SPACES}MACHINE LANG 
UAGE EDITOR{5 DOWN}" 

218 PRINT"K539{2 UP}STARTING ADDRESS?{8 SPACES } 

{9 LEFT}"; 

215 INPUTS: F=1-F:CS=CHRS (31+119*F) 

220 IFS<2560R(S>4096GANDS<49152 )ORS>53247THENGOSUB 
3800 :GOTO210 

225 PRINT: PRINT:PRINT 

238 PRINT"£59{2 UP}ENDING ADDRESS?{8 SPACES} 

{9 LEFPT]}">; :INPUTE: F=1-F:CS=CHRS (314+119*F) 

240 IFE<2560R(E>4896GANDE<¢49152 )ORE>53247THENGOSUB 
3888 :GOTO2 348 

250 IFE<STHENPRINTCS;"{RVS}ENDING < START 
{2 SPACES}":GOSUB199@:GOTO 238 

26@ PRINT: PRINT: PRINT 

300 PRINT" {CLR}";CHRS(14) :AD=S: POKEV+21,9 
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3198 


315 
328 
398 
462 
418 


415 


417 
420 
436 
448 


458 
451 


469 
476 
486 
496 
588 


5198 
511 
515 
526 


538 
549 


55 
560 
576 
588 
581 
585 


596 
680 
614 


6208 
639 
648 
656 
669 
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A=1:PRINTRIGHTS ("OBGG"+MIDS(STRS(AD),2),5);": 


FORJ=ATO6 

GOSUB57@4 : IFN=-1 THENJ=J+N:GOTO32@ 

IFN=-211THEN 710 

IFN=-204THEN 790 

IFN=-206THENPRINT: INPUT" {[DOWN}ENTER NEW ADDRES 
S"3ZZ 

IFN=-286 THENIFZZ<SORZZ>ETHENPRINT"{RVS}OUT OF 
{SPACE} RANGE" : GOSUB1@0 :GOTO4198 

IFN=-296 THENAD=ZZ : PRINT: GOTO310 

IF N<>-196 THEN 480 
PRINT?:INPUT"DISPLAY:FROM";F:PRINT, "TO"; : 
LFF <SORF>EORT<SORT>ETHENPRINT "AT LEAST" :S 
{LEFT}, NOT MORE THAN": E:GOTO430 
FORI=FTOTSTEP6 : PRINT: PRINTRIGHTS ("@@00"+MID$(s, 
TRS(I),2),5)3":"3 

FORK=98T05 :N=PEEK(I+K) : PRINTRIGHTS ("@0"+MIDS (ST 
RS(N),2),3)3","3 

GETAS : LFAS>""THENPRINT: PRINT: GOTO319 

NEXTK : PRINTCHRS (28); sNEXTI: PRINT: PRINT :GOTO310 
IFN<@ THEN PRINT:GOTO31@ 

A(J)=N:NEXTJ 

CKSUM=AD-INT (AD/ 256 ) * 256 : FORI=1T06 : CKSUM=(CKSU 
M+A(I))AND255 :NEXT 

PRINTCHRS (18) ; sGOSUB57@: PRINTCHRS (146); 
IFN=-1THENA=6 :GOTO315 

PRINTCHRS (28) : IFN=CKSUMTHENS5 39 

PRINT: PRINT"LINE ENTERED WRONG : RE-ENTER":PRI 
NT : GOSUB1@9@:GOTO310 

GOSUB2888 

FORI=1TO6 : POKEAD+I-1,A(1I) :NEXT: POKE54272,@:POK 
E54273,@G 

AD=AD+6:IF AD<E THEN 319 

GOTO 714 

N=0 :Z=9 

PRINT" K£49"; 

GETAS : IFAS=""THENS581 

PRINTCHRS (28); s:A=ASC (A$) : IFA=130RA=440RA=32THE 
N67 

IFA>128THENN=-A: RETURN 

IFA<>20 THEN 630 

GOSUB69@ : IFI=1ANDT=44THENN=-1 : PRINT" {OFF} 
{LEFT} (LEFT}"::GoTO69a8 

GOTO576 

IFA<480RA>57THEN58@ 

PRINTAS; :N=N*190+A-48 

IFN>255 THEN A=28:GOSUB1@Q9 :GOTOG6G 
Z=Z+1:1FZ<3THEN58O 
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670 
680 
696 
691 
695 
780 
718 
715 


720 
730 


748 
7598 


768 
762 


763 
765 


766 
778 
775 
780 
781 


790 
795 


BO 
819 
820 
838 
849 
841 
845 
858 


866 
B65 


IFZ=0THENGOSUB19@@ :GOTO57@ 

PRINT", "; : RETURN 

S%=PEEK (289 )+256* PEEK ( 218 )+PEEK( 211) 

FORI=1T03 : T=PEEK(S%-I) 

IFT <> 44ANDT<> 58THENPOKES3-1, 32 :NEXT 

PRINTLEFTS ("{3 LEFT}",I-1);:RETURN 
PRINT" {CLR} ({RVS}*** SAVE ***{3 DOWN}" 

PRINT" {2 DOWN} (PRESS {RVS]}RETURN{OFF} ALONE TO 
CANCEL SAVE) {DOWN}" 

FS="": INPUT" {DOWN} FILENAME"; FS$:IFF$=""THENPRI 

NT: PRINT :GOTO319 

PRINT: PRINT"{2 DOWN} {RVS}T{OFF]APE OR {RVS}D 
{OFF}ISK: (T/D)" 

GETAS : IFAS <>"T" ANDAS <>"D"THEN74@ 
DV=1-7*(AS="D") : IFDV=8THENFS="@0:"+FS$:OPEN15,8, 
15, "S"+F$:CLOSEL5 

TS=FS :ZK=PEEK (53 )+256*PEEK(54)-LEN(TS) : POKE782 
,2K/256 

POKE781, ZK-PEEK (782 )* 256: POKE789, LEN(TS) :SYS65 
469 

POKE78@,1:POKE781, DV: POKE782, 1:SYS65466 

K=S: POKE254, K/256: POKE253, K~PEEK( 254) *256:POKE 
780,253 

K=E+1 : POKE782 , K/ 256 : POKE781 , K-PEEK (782 )*256:SY 

565496 

IF (PEEK (783) AND1 )OR(191ANDST ) THEN789 

PRINT" {DOWN} DONE. {DOWN }":GOTO3128 

PRINT" {DOWN}ERROR ON SAVE.{2 SPACES}TRY AGAIN. 
": TFDV=LTHEN720 

OPEN15,8,15:INPUT#15,E1$,E2$:PRINTE1$;E2$:CLOS 
E15:GOTO726 

PRINT" {CLR} {RVS}*** LOAD ***{2 DOWN}" 

PRINT"{2 DOWN] (PRESS {RVS}RETURN{OFF} ALONE TO 
CANCEL LOAD)" 

FS=""sINPUT"{2 DOWN} FILENAME";FS$:IFFS=""THENP 
RINT :GOTO318 

PRINT: PRINT"{2 DOWN} {RVS}]T{OFFJAPE OR {RVS}D 
{OFF} ISK: (T/D)" 

GETAS : IFA$<>"T" ANDAS <> ""D" THEN828 

DV=1-7* (AS="D") : IFDV=8THENFS="6:"+FS$ 

TS=FS : ZK=PEEK(53 )+256*PEEK(54)-LEN(TS) s POKE782 
,2K/256 

POKE781 , ZK-PEEK ( 782 ) * 256: POKE78@, LEN (TS) :SYS65 
469 

POKE78@,1:POKE781, DV: POKE782,1:SYS65466 
POKE78@ ,0:SYS65493 

IF (PEEK(783 )AND1 )OR(191ANDST ) THEN87@ 

PRINT" {DOWN} DONE. ":GOTO3190 
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878 PRINT" {DOWN}ERROR ON LOAD.{2 SPACES}TRY AGAIN. 


{DOWN } " : IFDV=1THEN8@B _ 


889 OPEN15,8,15:INPUT#15,E1$,E2S$ :PRINTE1$;E2$:CLOS 


1960 
1081 
1962 
1863 


2009 
2081 
28682 
2603 
3808 


E15 :GOTO8O2 


REM BUZZER 

POKE54296, 15: POKE54277,45 : POKE54278, 165 
POKE54276,33:POKE 54273,6:POKE54272,5 
FORT=1T02980 :NEXT: POKE54276, 32 : POKE54273,@:POK 
E54272,0:RETURN 

REM BELL SOUND 
POKE54296,15:POKE54277,0:POKE54278, 247 

POKE 54276,17:POKE54273, 498: POKE54272,@ 
FORT=1TO1908 : NEXT: POKE54276,16:RETURN 
PRINTCS;"{RVS]NOT ZERO PAGE OR ROM":GOTO19G@ 


Program C-2,. VIC MLX 
Refer to Appendix E ‘How to Type In BASIC Programs” before entering this program. 


108 
181 
110 
126 


138 


148 
200 


214 


229 
225 
238 


248 
256 


268 
308 
319 


329 
398 
498 
410 


415 
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PRINT" {CLR} (PUR}"+;CHRS (142);CHRS(8); 

POKE 788,194:REM DISABLE RUN/STOP 

PRINT" ({RVS}{14 SPACES}" 

PRINT"{RVS} {RIGHT} [OFF] £*I£{RVS} {RIGHT} 
{RIGHT} {2 SPACES}E*J{OFF}E*FeE(RVS}£{RVS} " 
PRINT" {RVS} {RIGHT} EG3{RIGHT} [2 RIGHT} [OFF} 
£(RVS}£E*I(OFFJE*I(RVS} " 

PRINT" {RVS}{14 SPACES}" 

PRINT" {2 DOWN} {PUR} {BLK}A FAILSAFE MACHINE":PR 
INT"LANGUAGE EDITOR{5 DOWN}" 

PRINT" {BLK}{3 UP}STARTING ADDRESS": INPUTS:F=1l- 
F:CS=CHRS (314+119*F) 

IFS <2560RS > 3276 7THENGOSUB39@0 :GOTO218 
PRINT: PRINT: PRINT: PRINT 

PRINT" {BLK}{3 UP}ENDING ADDRESS": INPUTE:F=1-F: 
CS=CHRS (31+119*F) 

IFE< 2560RE> 3276 7 THENGOSUB 300 : GOTO230 
IFE<STHENPRINTC$;"{RVS}ENDING < START 

{2 SPACES}":GOSUB180@:GOTO 230 

PRINT: PRINT: PRINT 

PRINT" {CLR}";CHRS$(14):AD=S 

PRINTRIGHTS ("G@GO"+MIDS (STRS(AD),2),5)3"s"3sFO 
RJ=1T06 

GOSUB57@ : IFN=~-1 THENJ=J+N:GOTO 32d 

IFN=-211THEN 712 

IFN=-204THEN 790 
IFN=-206THENPRINT: INPUT" {DOWN}ENTER NEW ADDRES 
S"32Z 

IFN=-206 THENIFZZ<SORZZ>ETHENPRINT"{RVS}OUT OF 
{SPACE } RANGE" :GOSUB19009 :GOTO418 
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IFN=- 206 THENAD=ZZ : PRINT :GOTO310 

IF N<>-196 THEN 489 

PRINT: INPUT"DISPLAY: FROM"; F: PRINT, "TO"; sINPUTT 
IFF<SORF>EORT<SORT>ETHENPRINT"AT LEAST";S;" 
{LEFT}, NOT MORE THAN";EsGOTO43@ 
FORI=FTOTSTEP6 : PRINT: PRINTRIGHTS ("G6G00"+MID$(S 
TRS(I),2),5)3"2"3 

FORK=9TO5 :N=PEEK(I+K) : IFK=3THENPRINTSPC(10); 
PRINTRIGHTS ("OO"+MIDS(STRS(N),2),3)3","3 

GETAS : IFAS>""THENPRINT: PRINT: GOTO319 

NEXTK : PRINTCHRS (20); sNEXTI: PRINT: PRINT: GOTO314 
IFN<@ THEN PRINT:GOTO316 

A(J)=N:NEXTJ 

CKSUM=AD-INT (AD/ 256 )* 256 : FORI=1 TO6 : CKSUM=(CKSU 
M+A(I))AND255 :NEXT 

PRINTCHRS (18); :GOSUB570 : PRINTCHRS (20) 
IFN=CKSUMTHENS 36 

PRINT: PRINT"LINE ENTERED WRONG": PRINT"RE-ENTER 
"; PRINT : GOSUB1096 :GOTO310 

GOSUB29800 

FORI=1T06 : POKEAD+I-1,A(1):NEXT 

AD=AD+6:IF AD‘E THEN 319 

GOTO 7198 

N=6 :Z=0 

PRINT" K+]"; 

GETAS : IFAS=""THEN581 

PRINTCHRS (28); sA=ASC(AS$) : IFA=130RA=440RA=32THE 
N67 

IFA> 128THENN=-A: RETURN 

IFA<>2@ THEN 630 

GOSUB690 : IFI=lLANDT=44THENN=-1: PRINT" (LEFT } 
{LEFT}"; sGOTO69B8 

GOTO572 

IFA<480RA>57THENS89 

PRINTAS; :N=N*19+A-48 

IFN>255 THEN A=28:GOSUB19008 :GOTO609 

Z=Z+1 :IFZ<3THEN58S 

IFZ=@ THENGOSUB19@B :GOTO57@ 

PRINT", "; : RETURN 

S3=PEEK ( 209) +256 *PEEK( 219 )+PEEK( 211) 
FORI=1T0O3 : T=PEEK(S$-I) 

IFT <> 44AaNDT <> 58THENPOKES$—-I1, 32 :NEXT 
PRINTLEFTS("{3 LEFT}",I-1);:RETURN 
PRINT" {CLR} {RVS}*** SAVE ***{3 DOWN}" 

INPUT" {DOWN} FILENAME"; FS 

PRINT: PRINT"{2 DOWN} {RVS}T{OFFJAPE OR {RVSJD 
{OFF}ISK: (T/D)" 7 
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748 GETAS: IFAS<>"T"ANDAS <>"D" THEN7406 

758 DV=1-7*(AS="D") :IFDV=8THENFS="6:"+FS$ 

760 Tea e ee ooo) #296" PEEK (54) “LEN (9) + POKE7S2 
,2K/256 

762 POKE781,ZK-PEEK(782 )*256:POKE780, LEN(TS$) :SYS65 
469 

763 POKE78@,1:POKE781, DV: POKE782,1:SYS65466 

765 POKE254,S/256:POKE253,S-PEEK (254) *256: POKE789, 
253 

766 POKE782,E/256: POKE781, E-PEEK (782) * 256 :SYS65496 

770 IF(PEEK(783)AND1)OR(ST AND191)THEN789 

775 PRINT" {DOWN}DONE. ":END 

788 PRINT" {DOWN}ERROR ON SAVE.{2 SPACES}TRY AGAIN. 
": IFDV=1THEN7 26 

781 OPEN15,8,15:INPUT#15,E1$,E2$ : PRINTE1S$;E2$:CLOS 
E15 :GOTO7208 

782 GOTO726 

798 PRINT" {cLR}{RVS}*** LOAD ***{2 DOwN}" 

898 INPUT"{2 DOWN} FILENAME";:FS 

818 PRINT: PRINT" {2 Down} {RvS}T {OFF JAPE OR {RvS]}D 
{OFF}ISK: (T/D)" 

820 GETAS:IFAS$<>"T"ANDAS <> "D"THEN828 

838 DV=1-7* (AS="D") : IFDV=8THENFS="0:"+FS$ 

846 mesa ee od) 236" PEEK (54) -LEN (78) : POKE782 
»ZK/256 

841 POKE781,ZK—-PEEK (782 )*256:POKE78@, LEN(TS) :SYS65 
469 

845 POKE78@,1:POKE781,DV:POKE782,1:SYS65466 

8598 POKE780,0:SYS65493 

860 IF(PEEK(783)AND1)OR(ST AND191)THEN879 

865 PRINT" {DOWN} DONE. ":GOTO31@ 

878 PRINT" {DOWN}JERROR ON LOAD.{2 SPACES}TRY AGAIN. 
{Down} ":IFDV=1THEN8S2 

880 OPEN15,8,15:INPUT#15,E1$,E2S :PRINTE1$;E2$ :CLOS 
E15 :GOTOBBZ 

1988 REM BUZZER 

1881 POKE36878,15:POKE36874,198 

1882 FORW=1T0O300 :NEXTW 

1083 POKE36878,0:POKE36874,98:RETURN 

2068 REM BELL SOUND 

2001 FORW=15TOOSTEP-1 : POKE36878,W: POKE36876, 249 :NE 
XTW 

2002 POKE36876,8:RETURN 

3809 PRINTCS;"{RVS}]NOT ZERO PAGE OR ROM":GOTO1OGG 
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Program C-3. PET MLX 


Refer to Appendix E “How to Type In BASIC Programs” before entering this program. 


198 PRINT" {CLR}";CHRS$ (142) :POKE53,43:CLR 

118 PRINT"{RVS}{38 SPACES}" 

126 PRINT"{RVS}{18 SPACES }MLX{17 SPACES}" 

146 PRINT"{RVS}{38 SPACESJ" 

208 PRINT"{2 DOWN} MACHINE LANGUAGE EDITOR PET VER 
SION{5 DOWN}" 

219 PRINT"{2 UP}STARTING ADDRESS?{8 SPACES} 
{9 LEFT}"; 

215 INPUTS 

228 IFS<2560RS>32767THENGOSUB3000 :GOTO2104 

225 PRINT:PRINT:PRINT 

230 PRINT"{2 UPJENDING ADDRESS?{8 SPACES}{9 LEFT}" 
: : INPUTE 

248 IFE<2560RE>32767THENGOSUB300@ :GOTO23¢ 

250 IFE<STHENPRINTCS;"{RVS]JENDING < START 
{2 SPACES }":GOSUB1980:GOTO 2398 

268 PRINT:PRINT:PRINT 

382 PRINT" {CLR}";CHRS(14):AD=S 

318 A=1:PRINTRIGHTS ("@GGO"+MIDS(STRS(AD),2),5);"3" 


315 FORJ=ATO6 

328 GOSUB57@4 :IFN=-1THENJ=J+N:GOTO3 294 

398 IFN=-211THEN 710 

460 IFN=-204THEN 790 

4198 IFN=-206THENPRINT: INPUT" {DOWN} ENTER NEW ADDRES 
S"322Z 

415 IFN=-206THENIFZZ<SORZZ>ETHENPRINT"{RVS}OUT OF 
{SPACE } RANGE" : GOSUB1909@ :GOT0418 

417 IFN=-206 THENAD=2Z: PRINT: GOTO319 

420 IF N<>-196 THEN 4898 

430 PRINT: INPUT"DISPLAY:FROM":F:PRINT, "TO"; sINPUTT 

449 IFF<SORF>EORT<SORT>ETHENPRINT"AT LEAST":;S;" 
{LEFT}, NOT MORE THAN": E:GOT0438 

450 FORI=FTOTSTEP6:PRINT: PRINTRIGHTS ("@090"+MIDS(S 
TRS(I),2),5)3"2"3 

451 FORK=6T05 :N=PEEK(I+K):PRINTRIGHTS ("00"+MIDS$(ST 
RS(N),2),3)7","% 

469 GETAS :IFAS>""THENPRINT: PRINT: GOTO3194 

470 NEXTK: PRINTCHRS (20): sNEXTI:PRINT:PRINT:GOTO319 

489 IFN<9 THEN PRINT:GOTO316 

490 A(J)=N:NEXTJ 

500 CKSUM=AD~INT (AD/256 ) * 256 : FORI=1TO6 : CKSUM=(CKSU 
M+A(I))AND255:NEXT 

518 PRINTCHRS (18) ; s:GOSUB5798: PRINTCHRS (146); 

511 IFN=-1THENA=6 :GOTO315 

515 PRINTCHRS (20) :I1FN=CKSUMTHEN53@ 
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528 


538 
548 
558 
568 
576 
580 
581 
585 


598 
606 
618 


628 
638 
649 
658 
668 
6768 
680 
696 
691 
695 
700 
716 
715 


726 
738 


748 
758 


760 
762 
763 
765 
766 
770 
775 
780 


781 
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PRINT: PRINT"LINE ENTERED WRONG : RE-ENTER":PRI 
NT : GOSUB19@69:GOTO319 

GOSUB290@ 

FORI=1T06 : POKEAD+I-1,A(1):NEXT 

AD=AD+6:IF AD<E THEN 3198 

GOTO 718 

N=8 :Z2=0 

PRINTCHRS (168); 

GETAS : IFAS=""THEN581 

PRINTCHRS (28); :A=ASC(AS ) : 1FA=130RA=44ORA=32THE 
N67 

IFA>128THENN=-A: RETURN 

IFA<>2@ THEN 632 

GOSUB69@ : I FI=1ANDT=44THENN=~1:PRINT" {OFF } 
{LEFT} {LEFT}"; :GOTO699 


GOTO57@ 
IFA<480RA>57THEN589 
PRINTAS; :N=N*10+A-48 


IFN>255 THEN A=20:GOSUB19@@ : GOTO6GE 
2=Z+121F2Z<3THEN5SSO 

IFZ=% THENGOSU B1888 :GOTO57@ 

PRINT", ";:RETURN 

SS=PEEK (196 )+256*PEEK(197)+PEEK(198) 
FORI=1T03 : T=PEEK(SS-I) 

IFT <>44ANDT <> 58THENPOKESS-I1, 32 :NEXT 

PRINTLEFTS("{3 LEFT}",I-1);:RETURN 
PRINT" {CLR} {RVS}*** SAVE ***{3 DOWN}" 

PRINT"{2 DOWN}(PRESS {RVS}RETURN{OFF} ALONE TO 
CANCEL SAVE) {DOWN}" 

FS=""sINPUT" {DOWN} FILENAME? *{3 LEFT}";FS:IFF 
$="*"THENPRINT: PRINT :GOTO319 

PRINT: PRINT"{2 DOWN} {RVS}T{OFFJAPE OR {RVS}D 
{OFF}ISK: (T/D)" 

GETAS : IFAS<>"T"ANDAS<>"D"THEN74@2 

DV=1-7* (AS="D") : IFDV=8THENFS="@:"+FS:OPENL5,8, 
15, "S"+FS$:CLOSE1L5 

TS=FS :ZK=PEEK (50 )+256*PEEK(51)-LEN(TS) :POKE219 
,2K/256 

POKE218, ZK-PEEK (219 )*256 : POKE209, LEN(TS) 

POKE21@,1:POKE211,8:POKE212,DV 

K=S: POKE252,K/256:POKE251 ,K-—PEEK( 252) *256 

K=E+1 : POKE202,K/256:POKE2@1 , K-PEEK(202)*256:SY 

S63203:REM 63148 FOR 3.98 

IF(191ANDST) THEN78@ 

PRINT" { DOWN} DONE. { DOWN }" :GOTO31@ 

PRINT" {DOWN}ERROR ON SAVE.{2 SPACES}TRY AGAIN. 
"; [FDV=1THEN7 20 

OPEN15,8,15:INPUT#15,E1$,E2S:PRINTE1S$ :E2$:CLOS 

E15 :GOTO72@ 


Appendix C: Commodore and Atari Machine Language Editor 





796 
795 


82S 


816 


820 
838 
848 


841 
845 
85d 


860 
865 
870 


880 


10999 
1901 
1983 


20808 
2081 
2803 
3008 


PRINT" {CLR} {RVS}*** LOAD ***{2 DOWN}" 
PRINT"{2 DOWN}(PRESS {RVS}RETURN{OFF} ALONE TO 
CANCEL LOAD)" — 
FS=""sINPUT"{2 DOWN} FILENAME? *(3 LEFT}";FS$:1 
FFS="*"THENPRINT: PRINT: GOTO319 
PRINT: PRINT"{2 DOWN] {RVSJT{OFFJAPE OR [{RVS]D 
{OFF}ISK: (T/D)" 7 ~ 
GETAS : IFAS <>"T"ANDAS<>"D"THEN828 
DV=1-7* (AS="D") :1FDV=8THENF $="0:"+FS 
TS=FS :ZK=PEEK(50)+256* PEEK(51)-LEN(TS) :POKE219 
,2K/256 
POKE218 , ZK-PEEK( 219) * 256: POKE29@9, LEN (TS ) 
POKE219,1:POKE211,@:POKE212,DV 
POKE157,@:SYS62294:REM USE 62242 FOR UPGRADE P 
ET 3.0 
IF (191 ANDST) THEN878 
PRINT" {DOWN} DONE. ":GOTO31@ 
PRINT" {DOWNJERROR ON LOAD.{2 SPACES}TRY AGAIN. 
{ DOWN} ": LFDV=1 THEN8OS 
OPEN15,8,15:INPUT#15,E1$,E2$:PRINTE1$;E2$:CLOS 
E15:GOTO89 
REM BUZZER 
POKE59467,16:POKE59466,129 : POKE59464, 255 
FORT=2900T025@ : POKE59466, T:NEXT: POKE59467,@:RE 
TURN 
REM BELL SOUND 
POKE59467 ,16:POKE59466,51:POKE59464,100 
FORT=1TO5@:NEXT : POKE59467,@: RETURN 
PRINT" {RVS}NOT ZERO PAGE, SCREEN OR ROM":GOTO 
1908 


Program C-4. Atari MLX 
Refer to Appendix E ‘‘How to Type In BASIC Programs” before entering this program. 


149 


GRAPHICS @: DL=PEEK (5698) +256*°PEEK (561) +4: 
POKE DL-1,71i1:POKE DL+2,6 

POSITION 8,@:?7 "MLX":POSITION 23,4:7 "KE 
ESEEFTc-mskae. ©>POKE 719,08: 

? "Starting Address”;:INPUT BEG:?7 " End 
ing Address";:INPUT FIN: ? "Run/Init Addr 
ess";s:s INPUT STARTADR 

DIM AC6), BUFFERS (FIN-BEGt127) ,TS(2G) , FS ¢ 
29),CIO&S(7), SECTOR$(128) , DSKINV$ (46) 

OPEN #1,4,@4,"K:i":? :? ,"f§ape or Fisk: "; 
BUFFERS=CHRS& (8) : BUFFERS (F IN—BEG+39) =BUFF 
ERS: BUFFERS (2) =BUFFERS: SECTORS=BUFFERS 
ADDR=BEG:CIOS="hhh": CIOS (4) =CHR#$(1784):CI 
O0¢$(5)="LV":C1IO8 (7) =CHRS (228) 

GET #1,MEDIA: IF MEDIA<>84 AND MEDIAC>68 
THEN 178 
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? CHRS(MEDIA):?7 :IF MEDIA<C SASC("T") THEN 
BUFFERS="":GOTO 259 

BEG=BEG-—24;: BUFFERS=CHRS (#) : BUFFERS (2) =CH 

RS( (CF IN-BEG+127)/1286) 

H=INT (BEG/256) : L=BEG—-H£256: BUFFERS (3) =CH 

R#(L): RUFFERS (4) =CHRS$ (CH) 

PINIT=BEG+8: H=INTCPINIT/S 256) :L=PINIT-H#2 

346: BUFFERS (5) =CHRS(L) s BUFFERS (4) =CHRS (CH) 

FOR I=7 TO 24:READ A: BUFFERS (1) =CHRE(A)s 

NEXT IsDATA 24,96,169,69,141,2,211,1569,9 
,5133,18,169,8,133,11,76,8,@ 

H=INT (STARTADR/ 256) =: L=STARTADR—-H8&256: BUF 

FERS (15) =CHRS (L) s BUFFERS (19) =CHRS (H) 

BUFFERS (23) =CHRS(L): BUFFERS (24) =CHRS (H) 
IF MEDIA<>ASC("D") THEN 369 

? :? "Boot Eisk or Binary Tmles:"; 

GET #1,DTYPE:IF DTYPE<>68 AND DTYPE<>79 

THEN 276 

? CHRS (DTYPE): IF DTYPE=798 THEN 369 

BEG=BEG—394: BUFFERS=CHR$ (@) : BUFFERS (2) =CH 

R#( (FIN-BEG+127)/128) 

H=INT (BEG/256) : L=BEG—H&256: BUFFERS (3) =CH 

R#{L): BUFFERS (4) =CHRS (H) 

PINIT=STARTADR: H=INT(PINIT/256) sL=PINIT-— 

H*256: BUFFERS (5) =CHR# (L) s BUFFERS (6) =CHRE 
(H) 

RESTORE 33@:FOR I=7 TO 384:READ A: BUFFERS 
(1) =CHRS(A)SNEXT I 

DATA 169,89,141,231,2,133,14,169,9,141,23 

2,2,133,15,169,89,133,19,169,9,133,11,24, 

96 

H=INT (BEG/256) : L=BEG—H*256: BUFFERS (8) =CH 

R$ (lL): BUFFERS (15) =CHRS$ (CH) 

H=INT CSTARTADR/256) :L=STARTADR-H&256: BUF 

FERS (22) =CHRS(L) : BUFFERS (26) =CHRS (H) 

GRAPHICS @:POKE 712,1@:POKE 719,16:POKE 

799,2 

? ADDR;:":"3;:FOR J=1 TO 6 

GOSUB 379: IF N=-1 THEN J=J-1:GOTO 389 

IF N=-19 THEN 729 

IF N=-12 THEN LET READ=1:GOTO 729 

TRAP 41@:I1F N=-14 THEN ? :? “New Address 
"ss: INPUT ADDR: ? :GOTO 379 

TRAP 32767:IF N«<>-4 THEN 489 

TRAP 4304:7 :? "Display:From”";: INPUT F:7? 
s"To"s:INPUT T:zTRAP 32767 

IF F< BEG OR FSFIN OR T<BEG OR TOFIN OR T 

<F THEN ? CHR#(253)3;"At least “3;BEG;", WN 

ot More Than ";FIN:GOTO 4398 
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450 


46@G 


47a 


430 
49a 
Soa 


519 


5298 


538 


549 


559d 
369 
378 
589 


598 
699 
616 


629 
639 
646 
650 


569 
679 
684 
699 


79D 
716 


726 
738 
74D 
73G 
76S 


FOR I=F TO T STEP 6:7? =:? I3"2"33sFOR K=9 
TO S:N=PEEK (ADR (BUFFERS) t+I1+K—-BEG) : T#="99 
A2":3sTé&(4-LEN(CSTRS(N) ))=STRSCN) 

IF PEEK(764)<255 THEN GET #1,A:POQP :POP 
:? :GOTO 3768 

? THs". "3S 2NEXT K:? CHR#(126)3s=2NEXT Is? : 
? :GOTO 3786 

IF N<@ THEN ? :GOTO 379 

ACJIJ=NENEXT J 
CKSUM=ADDR-INT(ADDR/2546) 4256: FOR IT=1 TO 
6: CKSUM=CKSUM+A CI) : CKSUM=CKSUM-25468 (CKSU 
M>255):NEXT I 

RF=128:SOQUND #@,299,12,8:GOSUB 579:SQUND 
§9,09,09,48:RF=6:? CHR#(124) 

IF N<>CKSUM THEN ? :? “Incorrect”; CHRS(2 
33)3:7 +GOTO 378 

FOR W=15 TO @ STEP -1:SOQUND 9,59,10,W:NE 
XT W 

FOR I=1 TO &:POKE ADR (BUFFERS) +ADDR-BEG+ 
I-1,ACI) :sNEXT I 

ADDR=ADDR+6: IF ADDR<C=FIN THEN 3786 

GOTO 714 

N=@: Z=a4 

GET #1,A:IF A=155 OR A=44 OR A=32 THEN & 
79 

IF A<32 THEN N=-A: RETURN 

IF AC>126 THEN 639 

GOSUB 69@:IF f=1 AND T=44 THEN N=-1:7? CH 
R$(126)::GOTO 46499 

GOTO 3748 

IF A<48 GR A>57 THEN 58a 

? CHRS (A+RF) 5s =N=N219+A-48 

IF N>255 THEN ? CHR#$(253)3:A=126:G0TO 64 
a 

Z=Z+1:IF Z<¢3 THEN 58a 

IF Z=@ FHEN ? CHR&(253)3=GOTO 35798 

? ", "3 :RETURN 

POKE 752,i1:FOR I=1 TO 3:7 CHR#(39)3:GET 
#6,T:I1IF Te>44 AND TCK358 THEN ? CHRSCA) 3 = 
NEXT I 


POKE 752,0:?7 " ";CHR$(126)3:RETURN 
GRAPHICS @:POKE 719,26:POKE 712, 26:POKE 
739 ,2 


IF MEDIA=ASC("T") THEN 899 

REM EVeera 

IF READ THEN ? :7 "Load File":7? 

IF DTYPE<SASC("F") THEN 1849 

? :? "Enter AUTOGORUN.SYS for automatic us 
e":? :? "Enter filename": INPUT T# 
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77a 
78 
798 
Bag 
8194 


826 
83a 
8464 
asa 


863 
879 


Baa 
878 
A F ) 


918 
9295 


930 
749 


93590 
968 


979 


98a 
298 


1gga 
1g1a@ 
14290 
1843 
19498 


1458 
1s6e 


430 


FS=T#:IF LENC(TS) >2 THEN IF T#(1,2)¢>"Ds" 
THEN F#="D:i"sF8(3)=TH 
TRAP 87@:CLOSE #2:0PEN #2,8-48READ,&,FS: 
? 3s? "Working..." 

IF READ THEN FOR I=1 TO 6:GET #2,A:NEXT 
I:GOTO 826 
PUT #2, 255:PUT #2,255 
H=INT (BEG/258) :L=BEG—-H#256:PUT #2,0L:PUT 
#2,H:H=INTCFIN/ 256) :L=FIN-H&8256:PUT #2,L 
:PUT #2,H 
GOSUB 97@4:I1F PEEK(195) +1 THEN 879 

IF STARTFADR=98 OR READ THEN 854 
PUT #2, 224:PUT #2,2:PUT #2,225:PUT #2,2: 
H=INT(STARTADR/ 256) :L=STARTADR-H&4256: PUT 
#2,L:PUT #2,H 
TRAP 32767:CLOSE #2:?7 "Finished.":IF REA 
D THEN 7? :? :LET READ=8:GOTO 368 
END 
? "Error "sPEEK(195)3" trying to access” 
:? F#e:CLOSE #2:7 :GOTO 769 
REM Miia ga 

IF READ THEN ? :? "Read Tape” 

? 3s? :? “Insert, Rewind Tape.":7 "Press 
PLAY "::IF NOT READ THEN ? "& RECORD” 

? :? "Press ETRETIET when ready:"s: 
TRAP 96@:CLOSE #2:0PEN #2,8-48READ,128,” 
C2":? 2:? "Working..." 

GOSUB 97@:I1F PEEK(195)>1 THEN 968 
CLOSE #2: TRAP 32767:7 "Finished. ":? :7? 
IF READ THEN LET READ=8:GOTO 369 
END 

? =<? "Error "s;PEEK(195S)3" when reading/w 
riting boot tape":? :CLOSE #2:GOTO 894 
REM 
X=32:REM File#2, $298 

ICCOM=834: ICBADR=836: ICBLEN=8486: ICSTAT=8 
35 

H=INT C(ADR( BUFFERS) /256) : L=ADR (BUFFERS) — 
H*¥2546:POKE ICBADR+X,L:PQKE ICBADR+X+1,H 
L=FIN-BEG+t+1:H=INT(L/2546) :L=L-HS256: POKE 

ICBLEN+X,L:POKE ICBLEN+X+1,H 

POKE ICCOM+X,11-4*READ: A=~USR(ADRI(CIOS$B), 
X) 

POKE 1935,PEEKCICSTAT) : RETURN 

REM SES gee ea 

IF READ THEN 1198 

? 37? "Format Disk In Drive 17 (¢€Y/N)3"3 
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19796 
ised 
199g 


11969 


1119 
1128 
1138 


1144 
1156 
1168 
1178 
1184 
1199 
1266 


1214 
1226 
1238 
1246 
1258 
12698 
1279 
1289 
1299 


13998 
1319 
1329 
1339 
1349 
1354 


13698 
13798 
1388 
13998 


1449 
14196 


GET #1,A:1F A<>78 AND A<>89 THEN 1878 

? CHRS$(A):IF A=78 THEN 1199 

? 2? "Formatting... ":XIQ 254,#2,89,8,"D: 
"3? "Format Complete": ? 

NR=INT (CF IN-BEGt127)/128) : BUFFERS(FIN-8B 
EG+2)=CHR$(9):IF READ THEN ? "Reading... 
-":GOTO 1128 

? "Writing...” 

FOR I=1 TO NR:S=!I 

IF READ THEN GOSUB 12240:BUFFER$(1I%*128-1 
27)=SECTORS:GOTO 1169 
SECTOR#S=BUFFERS$(1I%*128-127) 

GOSUB 1229 

IF PEEK (CDSTATS) <¢<>1 THEN 1296 

NEXT I 

IF NOT READ THEN END 

? 3? :LET READ=8:G60T0O 364 

? “Error on disk access.":? "May need f 
ormatting.":GOTO 1849 

REM 

REM evan ge) ee Sew Tite ea 

REM Drive ONE 

REM Pass buffer in SECTORS 

REM sector # in variable S&S 

REM READ=1 for read, 

REM READ=8@ for write 

BASE=34256 
DUNIT=BASE+1 =: DCOMND=BASE+2: DSTATS=BASE+ 
= 

DBUFLO=BASE+4: DBUFHI=BASE+S 
DBYTLO=BASE+8: DBYTHI=BASE+9 
DAUX1=BASE+19: DAUX2=BASE+11 

REM DIM DSKINVS$ (4) 
DSKINVS="HLS": DSKINVS (4) =CHRS (228) 

POKE DUNIT,. 1:A=ADR (SECTORS) :H=INT(A/256 
»)sL=A-256H 

POKE DBUFHI.H 

POKE DRBUFLO,L 

POKE DCOMND,87-S*READ 

POKE DAUX2, INT(S/256):PQKE DAUX1.S—-PEEK 
(DAUX?) £256 

A=USR CADRIDSKINVS) > 

RETURN 
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A Library of 
Subroutines 


Here is a collection of techniques you'll need to use in many 
of your ML programs. Those techniques which are not inher- 
ently easy to understand are followed by an explanation. 


Increment and Decrement Double- 


Byte Numbers 


You'll often want to raise or lower a number by 1. To in- 
crement a number, you add 1 to it: Incrementing 5 results in 6. 
Decrement lowers a number by 1. Single-byte numbers are 
easy; you just use INC or DEC. But you'll often want to in- 
crement two-byte numbers which hold addresses, game 
scores, pointers, or some other number which requires two 
bytes. Two bytes, ganged together and seen as a single num- 
ber, can hold values from 0 ($0000) up to 65535 ($FFFF). 
Here’s how to raise a two-byte number by 1, to increment it: 


(Let’s assume that the number you want to increment or dec- 
rement is located in addresses $0605 and $0606, and the ML 
program segment performing the action is located at $5000.) 


5000 INCREMENT INC $0605; raise the low byte 

5003 BNE GOFORTH; if not zero, leave high byte alone 
5005 INC $0606; raise high byte 

5008 GOFORTH ... continue with program 


The trick in this routine is the BNE. If the low byte isn’t 
raised to zero (from 255), we don’t need to add a “‘carry” to 
the high byte, so we jump over it. However, if the low byte 
does turn into a zero, the high byte must then be raised. This 
is similar to the way an ordinary decimal increment creates a 
carry when you add 1 to 9 (or 99 or 999). The lower number 
turns to zero, and the next column over is raised by one. 

To double decrement, you need an extra step. The reason 
it’s more complicated is that the 6502 chip has no way to test 
if you’ve crossed over to $FF, down from $00. BNE and BEQ 
will test if something is zero, but nothing tests for $FF. (The N 
flag is turned on when you go from $00 to $FF, and BPL or 
BMI could test it.) The problem with it, though, is that the N 
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flag isn’t limited to sensing $FF. It is sensitive to any number 
higher than 127 decimal ($7F). 
So, here’s the way to handle double-deckers: 


5000 LDA $0605; load in the low byte (affecting the zero flag) 

5003 BNE FIXLOWBYTE; if it’s not zero, lower it, skipping high 
byte 

5005 DEC $0606; zero in low byte forces this. 

5008 FIXLOWBYTE DEC $0605; always dec the low byte. 


Here we always lower the low byte, but lower the high 
byte only when the low byte is found to be zero. If you think 
about it, that’s the way any subtraction would work. 


Comparison 

Comparing a single-byte against another single-byte is easily 
achieved with CMP. Double-byte comparison can be handled 
this way: 


(Assume that the numbers you want to compare are located 
in addresses $0605,0606 and $0700,0701. The ML program 
segment performing the comparison is located at $5000.) 


5000 SEC 

5001 LDA $0605; low byte of first number 

5004 SBC $0700; low byte of second number 

5007 STA $0800; temporary holding place for this result 

500A LDA $0606; high byte of first number 

500D SBC $0701; high byte of second number, leave result in A 
5010 ORA $0800; results in zero if A and $0800 were both zero. 


The flags in the Status Register are left in various states 
after this routine—you can test them with the B instructions 
and branch according to the results. The ORA sets the Z (zero) 
flag if the results of the first subtraction (left in $0800) and the 
second subtraction (in A, the Accumulator) were both zero. 
This would only happen if the two numbers tested were 
identical, and BEQ would test for this (Branch if EQual). 

If the first number is lower than the second, the carry flag 
would have been cleared, so BCC (Branch if Carry Clear) will 
test for that possibility. If the first number is higher than the 
second, BCS (Branch if Carry Set) will be true. You can there- 
fore branch with BEQ for =, BCC for <, and BCS for >. Just 
keep in mind which number you are considering the first and 
which the second in this test. 
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Double-Byte Addition 
CLC ADC and SEC SBC will add and subtract one-byte num- 
bers, To add two-byte numbers, use: 


(Assume that the numbers you want to add are located in ad- 
dresses $0605,0606 and $0700,0701. The ML program seg- 
ment performing the addition is located at $5000.) 


5000 CLC; always do this before any addition 

5001 LDA $0605 

5004 ADC $0700 

5007 STA $0605; the result will be left in $0605,0606 
500A LDA $0606 

500D ADC $0701 

5010 STA $0606 


It’s not necessary to put the result on top of the number 
in $0605,0606—you can put it anywhere. But you'll often be 
adding a particular value to another and not needing the orig- 
inal any longer—adding ten points to a score for every blasted 
alien is an example. If this were the case, following the logic of 
the routine above, you would have a 10 in $0701, 0702: 


0701 0A; the 10 points you get for hitting an alien 
0702 00 


You'd want that 10 to remain undisturbed throughout the 
game. The score, however, keeps changing during the game 
and, held in $0605,0606, it can be covered over, replaced with 
each addition. 


Double-Byte Subtraction 

This is quite similar to double-byte addition. Since subtracting 
one number from another is also a comparison of those two 
numbers, you could combine subtraction with the double-byte 
comparison routine above (using ORA). In any event, this is 
the way to subtract double-byte numbers. Be sure to keep 
straight which number is being subtracted from the other. 
We'll call the number being subtracted the second number. 


(Assume that the number you want to subtract [the “second 
number’’] is located in addresses $0700,0701, and the num- 
ber it is being subtracted from [the “’first number’’] is held in 
$0605,0606. The result will be left in $0605,0606. The ML 
program segment performing the subtraction is located at 
$5000.) 
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5000 SEC; always do this before any subtraction 
5001 LDA $0605; low byte of first number 

5004 SBC $0700; low byte of second number 

5007 STA $0605; the result will be left in $0605,0606 
500A LDA $0606; high byte of first number 

500D SBC $0701; high byte of second number 

5010 STA $0606; high byte of final result 


Multi-Byte Addition and 


Subtraction 

Using the methods for adding and subtracting illustrated 
above, you can manipulate larger numbers than can be held 
within two bytes (65535 is the largest possible two-byte inte- 
ger). Here’s how to subtract one four-byte-long number from 
another. The locations and conditions are the same as for the 
two-byte subtraction example above, except the ‘first number” 
(the minuend) is held in the four-byte chain, 
$0605,0606,0607,0608, and the “second number” (the sub- 
trahend, the number being subtracted from the first number) is 
in $0700,0701,0702,0703. 

Also observe that the most significant byte is held in 
$0703 and $0608. We'll use the Y Register for Indirect Y 
addressing, use four bytes in zero page as pointers to the two 
numbers, and use the X Register as a counter to make sure 
that all four bytes are dealt with. This means that X must be 
loaded with the length of the chains we're subtracting—in this 
case, 4. 


5000 LDX #4; length of the byte chains 

5002 LDY #0, set Y 

5004 SEC; always before subtraction 

5005 LOOP LDA (FIRST),Y 

5007 SBC (SECOND),Y 

5009 STA (FIRST),Y; the answer will be left in $0605-0608. 
500B INY; raise index to chains 

500C DEX; lower counter 

5010 BNE LOOP; haven’t yet done all four bytes 


Before this will work, the pointers in zero page must have 
been set up to allow the Indirect Y addressing. This is one way 
to do it: 
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2000 FIRST = $FB; define zero page pointers at $FB and $FD 
2000 SECOND = $FD 

2000 SETUP LDA #5; set up pointer to $0605 

2002 STA FIRST 

2004 LDA #6 

2006 STA FIRST +1 

2008 LDA #0; set up pointer to $0700 

200A STA SECOND 

200C LDA #7 

200E STA SECOND +1 


Multiplication 


x 2 
ASL (no argument used, ‘Accumulator addressing mode”) will 
multiply the number in the Accumulator by 2. 


x 3 


(To multiply by 3, use a temporary variable byte we'll call 
TEMP.) 


5000 STA TEMP; put the number into the variable 
5003 ASL; multiply it by 2 
5004 ADC TEMP; (X * 2 + X = X * 3) the answer is in A. 


x 4 
(To multiply by 4, just ASL twice.) 
5000 ASL; * 2 
5001 ASL; * 2 again 
X 4 (two byte) 


(To multiply a two-byte integer by 4, use a two-byte variable 
we'll call TEMP and TEMP +1.) 


5000 ASL TEMP; multiply the low byte by 2 

5003 ROL TEMP +1; moving any carry into the high byte 
5006 ASL TEMP; multiply the low byte by 2 again 

5009 ROL TEMP +1; again acknowledge any carry. 
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x 10 


(To multiply a two-byte integer by 10, use an additional two- 
byte variable we'll call STORE.) 


5000; first put the number into STORE for safekeeping 
5000 LDA TEMP:STA STORE:LDA TEMP+1:STA STORE+1 
500C; then multiply it by 4 

500C ASL TEMP; multiply the low byte by 2 

500F ROL TEMP +1; moving any carry into the high byte 
5012 ASL TEMP; multiply the low byte by 2 again 

5015 ROL TEMP +1; again acknowledge any carry. 

5018; then add the original, resulting in X * 5 

5018 LDA STORE 

501B ADC TEMP 

501E STA TEMP 

5021 LDA STORE+1 

501D ADC TEMP+1 

5024 STA TEMP+1 

5027; then just multiply by 2 since (5 * 2 = 10) 

5027 ASL TEMP 

502A ROL TEMP +1 


x? 


(To multiply a two-byte integer by other odd values, just use 
a similar combination of addition and multiplication which 
results in the correct amount of multiplication.) 


x 100 


(To multiply a two-byte integer by 100, just go through the 
above subroutine twice.) 


x 256 


(To multiply a one-byte integer by 256, just transform it into 
a two-byte integer.) 


5000 LDA TEMP 
5003 STA TEMP +1 
5006 LDA #0 

5008 STA TEMP 
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Division 
+2 


LSR (no argument used, ‘’Accumulator addressing mode’’) will 
divide the number in the Accumulator by 2. 


+4 
(To divide by 4, just LSR twice.) 
5000 LSR; / 2 
5001 LSR; / 2 again 
+ 4 (two byte) 
(To divide a two-byte integer, called TEMP, by 2) 


5000 LSR TEMP +1; shift high byte right 
5001 ROR TEMP; pulling any carry into the low byte 
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How to Type In 
BASIC Programs 


Some of the programs listed in this book are written in BASIC 
and contain special control characters (cursor control, color 
keys, inverse video, etc.). To make it easy to tell exactly what 
to type when entering one of these programs into your com- 
puter, we have established the following listing conventions. 
There is a separate key for each computer. Refer to the appro- 
priate tables when you come across an unusual symbol in a 
program listing. If you are unsure how to actually enter a con- 
trol character, consult your computer’s manuals, 


Atari 


Characters in inverse video will appear like: 
Enter these characters with the Atari logo key, (At. 


When you see Type See 
«€CLEAR}> ESC SHIFT < 5 Clear Screen 
{UP} ESC CTRL - t Cursor Up 
€ DOWN} ESC CTRL = + Cursor Down 
{LEFT} ESC CTRL + < Cursor Left 
{RIGHT} ESC CTRL & > Cursor Right 
{BACK S} ESC DELETE 4 Backspace 
{DELETE} ESC CTRL DELETE 4] Delete Character 
C INSERT} ESC CTRL INSERT a Insert Character 
{DEL LINE} ESC SHIFT DELETE + Delete Line 
CINS LINE} ESC SHIFT INSERT S| Insert Line 
{TAB} ESC TAB > TAB key 
{CLR TAB} ESC CTRL TAB €| Clear TAB 
{SET TAB> ESC SHIFT TAB Ra Set TAB stop 
CBELL}> ESC CTRL 2 Gi Ring Buzzer 
{ESC} ESC ESC x ESCape key 


Graphics characters, such as CTRL-T, the ball character © will 
appear as the “normal” letter enclosed in braces, e.g., {T}. 

A series of identical control characters, such as 10 spaces, 
3 cursor-lefts, or 20 CTRL-Rs, will appear as {10 SPACES}, 
{3 LEFT}, {20 R}, etc. If the character in braces is in inverse 


video, that character or characters should be entered with the 
Atari logo key. For example, {5} means to enter five inverse- 
video CTRL-Us. 
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Commodore 64, VIC, and PET 

Program listings will contain words within braces which spell 
out any special characters: {DOWN} would mean to press the 
cursor down key. {5 SPACES} would mean to press the space 
bar five times. 

To indicate that a key should be shifted (hold down the 
SHIFT key while pressing the other key), the key would be 
underlined in our listings. For example, S would mean to 
type the S key while holding the SHIFT key. If you find an 
underlined key enclosed in braces (e.g., {10 N}), you should 
type the key as many times as indicated (in our example, you 
would enter ten shifted Ns). 

If a key is enclosed in special brackets, K >], you should 
hold down the Commodore key while pressing the key inside 
the special brackets. (The Commodore key is the key in the 
lower left corner of the keyboard.) Again, if the key is pre- 
ceded by a number, you should press the key as many times 
as indicated. 

Rarely, you'll see a solitary letter of the alphabet enclosed 
in braces. These characters can be entered by holding down 
the CTRL key while. typing the letter in the braces. For ex- 
ample, {A} would indicate that you should press CTRL-A. 

About the quote mode: You should know that you can 
move the cursor around the screen with the CRSR keys. 
Sometimes a programmer will want to move the cursor under 
program control. That’s why you see all the {LEFT}’s, 
{HOME}’s, and {BLU}’s in our programs. The only way the 
computer can tell the difference between direct and pro- 
grammed cursor control is the quote mode. 

Once you press the quote (the double quote, SHIFT-2), 
you are in the quote mode. If you type something and then try 
to change it by moving the cursor left, you'll only get a bunch 
of reverse-video lines. These are the symbols for cursor left. 
The only editing key that isn’t programmable is the DEL key; 
you can still use DEL to back up and edit the line. Once you 
type another quote, you are out of quote mode. 

You also go into quote mode when you INserT spaces into 
a line. In any case, the easiest way to get out of quote mode is 
to just press RETURN. You'll then be out of quote mode and 
you can cursor up to the mistyped line and fix it. 

Use the following tables when entering special characters: 
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When You When You 
Read: Press: : 


{CLR] CLR HOME 

{ HOME } | CLR HOME 

\P 
[¥ case g | 


{BLU} 
{YEL} 


eth 


{Down} {Fl} [a | 
(eer) Ga] feces] Pte Ed 
[RIGHT] feo cRSR ~wml 7 ees [8] 
{RVS] cra] [3 | [F] ira) 
(OFF) Lo] MM itrs) [5] 
[ BLK} cree] [1] gy otre) 
[WHT] ce |{ 2] fj trv) 
[RED] CTRL [3] {F8} 
{cyNn} [+] bh “ [| 

{PUR} CTRL [5 | a t 
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wn 
® 
® 
cs 
@ 
ye) 
a. 
~ 
Le 
© 
wn 
wa 
a 
® 
® 


is 
A 


Index 


*= (Program Counter =) pseudo-op 32, 
111-12, 149-51, 203, 336, 339 
#> pseudo-op 342-43 
#< pseudo-op 342-43 
+ pseudo-op 179, 342-43 
Accumulator. See 6502, Accumulator 
Register 
Accumulator addressing 38 
ADC 239-40 
address (Program Counter) labels 7, 
36-37 
addressing modes. See 6502, instruction 
types 
AND 240-41 
with ASCII numbers 114, 154 
Apple LADS 327-32, 
BASIC wedge 331-32 
Disk Operating System file manager 
327-32 
error byte 330 
Open! 327-32 
Array (subprogram) 43, 85-93 
program listings 97-101 
ASCII 
alphabetic numbers 154-55 
characters 33, 82-83 
messages 182 
number conversion 113-16 
ASL 241-42 
with ROL 115-16, 153-54 
assembly 5-6, 34 
Atari 
CIO 299 
IOCB 299 
memory 300 
Atari LADS 299-327, 348-55 
Defs 301 
Editor 301, 308-12, 350-55 
program listing 312-27 
Eval 301, 304-5 
Getsa 302 
Indisk 303 
Kernal 300, 303-4 
program listing 305-8 
modifying the Editor 311 
Open1 302 
Printops 303 
Pseudo 303 
System 305 
program listing 308 
Valdec 302 
.B (.BYTE) pseudo-op 156-58 
base opcodes 36, 226 


BASIC 
borrowing from 18-19, 105-7, 182-83 
end of program mark 152 
keyword table 10, 18 
See also tokenized keywords 
BCC 242 
BCS 242-43 
BEQ 243 
B group instructions. Sce Relative 
addressing 
BIT 243-44 
bit-moving instructions 38 
BMI 244 
and BPL 45-47, 83 
BNE 244-45 
borrow 266 
BPL 245 
and BMI. See BMI and BPL 
BRANCH OUT OF RANGE 11, 39 
Brannon, Charles 108, 415 
BRK 245-46 
buffer 29-30, 140 
BVC 246 
BVS 247 
carry 239, 242, 247, 266-67 
chained files. See pseudo-ops, .E; pseudo- 
ops, .F 
character 8 
CLC 247 
CLD 247-48 
CLI 248 
CLV 248-49 
CMP 249-50 
and turbo-charged programming 108 
cold start 18 
comments 141-44 
Commodore 
Kernal 4 
ST (status byte) 205 
constant 4 
CPX 250-51 
CPY 251-52 
.D (.DISK) pseudo-op 181, 202-5, 345 
data base management. See Array (sub- 
program); Equate (subprogram) 
debugging 53-55, 149-51, 260, 339 
DEC 252 
decimal mode 239-40, 247-48, 261 
defaults 29 
changing 31 
Defs (subprogram) 15-25 
program listings 20-25 
relocatability 15-16 
transportability 16 
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delimiters 82-84 
DEX 252-53 
DEY 253 
Dis (optional subprogram) 288-96 
program listings 294-96 
disk 16 
assembly to disk. See pseudo-ops, .D 
errors 205 
padding with spacer bytes 151, 159-60 
Program Counter 107 
division 259, 439 
documentation. See comments 
double-byte ML routines 
addition 435 
comparison 434 
decrement 433 
increment 433 
subtraction 435 
Dtables (optional subprogram) 288-96 
program listings 296-98 
DUPLICATED LABEL 86-88, 90 
.E (.END) pseudo-op 201, 202, 343 
EOR 253-54 
to shift an ASCII character 83 
equate labels 7, 16, 36-37 
zero page 16 
Equate (subprogram) 81-84 
program listings 94-96 
error signals 184 
error traps (additional) 
impossible instruction 279-80 
keywords in filenames 
naked mnemonic 278-79 
Eval (subprogram) 29-76 
calculating an opcode 226 
determining addressing mode (instruc- 
tion type) 43-53 
program listings 55-76 
expression labels 86 
extensibility 277 
.F (.FILE) pseudo-op 112, 199-200, 343 
false target 11 
fields 
fixed length 79-81, 108 
variable length 79-83 
Findmn (subprogram) 32, 35-37, 109-11 
program listings 129-30 
flags 5, 9, 30 
Getsa (subprogram) 32, 111-13 
program listings 131-34 
-H (.HEX) pseudo-op 206 
hexadecimal (hex) numbers 42-43, 
152-56, 183-85 
Implied addressing 37-38 
INC 254 
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Indisk (subprogram) 32, 34, 42, 139-76 
program listings 161-76 
initialization 29 
Input/Output (I/O) 
Commodore 105-8 
See also Pseudo (subprogram) 
instruction types. See 6502, instruction 
types 
integer 8 
interrupt 
customizing 268 
disabling 268 
forced 245 
INX 254-55 
INY 255 
JMP 255-56 
JSR 256-57 
covering with NOP 260 
self-modifying indirect 311 
Kernal. See Atari LADS, Kernal; Com- 
modore, Kernal 
labels 40-42 
storing in data base 83-85 
See also address (Program Counter) la- 
bels; DUPLICATED LABEL; equate la- 
bels; expression labels; source labels; 
UNDEFINED LABEL 
LADS 
Apple. See Apple LADS 
assembly 34 
Atari. See Atari LADS 
buffers 227-28 
‘command summary 338-39 
development and philosophy 79-81, 
108-11, 150-51 
disassembler. See Dis (optional 
subprogram) 
flags 228-31 
how to use 335-55 
modifying 184, 200-201, 277-98 
object code listings 357-414 
Program Counter 33, 86, 149-51 
RAM-based assembly 282-86 
registers 227-28 
relocating 15 
rules for use 345 
tape use 348 
zero page usage 17-18 
LDA 257-58 
LDX 258 
LDY 258-59 
looping 81-82 
linked files 
See pseudo-ops, .F; pseudo-ops, .E 
lookup tables 108-11 
loop counter 252-53 


LSR 259 
Machine Language Editor (MLX) 415 
Machine Language for Beginners 34 
Machine Language (ML) routines. See 
double-byte ML routines; multi-byte 
ML routines 
Mapping the Atari 327 
Math (subprogram) 179-80 
program listings 186-87 
“Micromon” 150 
MLX. See Machine Language Editor 
program listings 419-31 
mnemonic instructions. See 6502, instruc- 
tion set 
modifying LADS 184, 200-201, 277-98 
monitor 3 
multi-byte ML routines 
addition 436 
subtraction 436 
multiplication 115-16, 437-38 
.N (.NO) pseudo-op 204-5 
NAKED LABEL 84 
NOP 260 
NO START ADDRESS 112 
numbers 8 
.O (.OBJECT code to RAM) pseudo-op 
181, 204, 344 
object code 5, 181 
opcodes. See 6502, opcodes 
Open! (subprogram) 106-8 
program listings 117-29 
ORA 260-61 
with alphabetic numbers 154-55 
output. See Input/Output; Printops 
(subprogram) . 
OVERFLOW 47 
.P (PRINTER) pseudo-op 204 
parallel tables 108-11, 221-27 
PHA 261 
and PLA 45-47, 53 
PHP 262 
PLA 262 
and JSR 256 
and PHA. See PHA and PLA 
PLP 262-63 
pointer 4, 30 
printing 
addresses 200 
hex numbers 185 
routines 184-85 
source code 49-51 
Printops (subprogram) 180-85 
program listings 187-95 
Program Counter. See LADS, Program 
Counter 


Pseudo (subprogram) 199-217 
program listings 207-17 
pseudo-ops 
*= (Program Counter =) 32, 111-12, 
149-51, 203, 336, 339 
#> 342-43 
#< 342-43 
+ 179, 342-43 
.B (.BYTE) 156-58 
.D (.DISK) 181, 202-5, 345 
.E (.END) 201, 202, 343 
.F (.FILE) 112, 199-200, 343 
-H (.HEX) 206 
.N (.NO) 204-5 
.O (.OBJECT code to RAM) 181, 204, 
344 
.P (.PRINTER) 204 
S (SCREEN) 206 
RAM-based assembly 282-86 
range checking 179 
redefined label 87 
register 4, 29 
Relative addressing 44-47 
remarks. See comments 
ROL 263-64 
with ASL. See ASL, with ROL 
ROR 264-65 
with LSR 259 
RT] 265 
RTS 265-66 
.S (SCREEN) pseudo-op 206 
SBC 266 
SEC 266-67 
SED 267 
SE] 268 
semicolon 341 
seventh bit (bit 7) 9-10 
shifted characters 82, 147, 244-45 
signed arithmetic 10, 239, 244-45 
branching 46-47 
Simple Assembler 34 
6502 
Accumulator Register 257 
addressing modes. See 6502, instruction 
types 
bug 255-56 
instruction types 37-38, 43-45, 222-24 
opcodes 221-22, 225 
Status Register 5, 9, 30, 246 
X Register 258 
Y Register 258 
source code 5 
printout. See printing, source code 
source files 335 
source labels 88 
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springboards 10, 39, 145 

stack 261, 262, 265, 272 

start address 32-33. See also pseudo-ops, 
ht 

STA 269 

Status Register. See 6502, Status Register 

STX 269 

STY 269-70 

subprogram 7-8 

suction routine 140 

SYNTAX ERROR 199 

tables. See lookup tables 

Tables (subprogram) 36, 108, 221-36 
program listings 232-36 

TAX 270 

TAY 270-71 

toggle 253 
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tokenized keywords 139, 142, 144-46, 
160, 199-200 

TSX 271 

turbo-charged programming 108 

TXA 271-72 

TXS 272 

TYA 273 

types. See 6502, instruction types 

UNDEFINED LABEL 91-92 

Valdec (subprogram) 32-33, 43, 113-16 
program listings 134-36 
registers 228 

variable 4 

vector 4 

warm start 18 

zero page address labels 93 

Zero Page Y addressing 53 


To order your copy of the LADS Disk call our toll-free US 
order line: 1-800-334-0868 (in NC call 919-275-9809) or send 
your prepaid order to: 


LADS Disk 

COMPUTE! Publications 
P.O. Box 5406 
Greensboro, NC 27403 


Please specify whether you want the Apple, Atari or Com- 
modore LADS. All orders must be prepaid (check, charge, or 
money order). NC residents add 4.5% sales tax. 


Send copies of the LADS Disk at $12.95 per copy for 
(check one) oOApple oAtari oO Commodore 





Subtotal $ 
Shipping & Handling: $1.00/disk* $ 
Sales tax (if applicable) $ 


Total payment enclosed $ 


*Outside US and Canada, add $3.00 per disk for shipping and handling. All 
payments must be in US funds. 


co Payment enclosed 
Charge o Visa o MasterCard o American Express 


Acct. No, ____—————— (SCE. Date 
Name 

Address 

City ___SOSCCC#SStcate: ___ Zip 





Please allow 4-5 weeks for delivery. 
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A Note To VIC-20 Users: 


To insure reliable assembly with the LADS assembler on the 
VIC, leave the .S (print to screen) pseudo-op active at all 
times. 


This is the companion volume to the best seller, Machine Language for 
Beginners, about which the critics have said: 


“Understandable’’—The New York Times 


“Presents the machine language novice with a very good tutorial in 
simple, understandable terms.”—Antic 

“I highly recommend Machine Language for Beginners as your first 
introduction to the world of machine language.”—Commodore 
Power/Play 

“This is an excellent book for anyone considering learning machine lan- 
guage programming. It is well written and easy to follow, and everything 
is presented in a logical and orderly fashion.”—RUN 


“Highly recommended ... usable, understandable .. . abounds in 
illustrations, standards and examples.” . 

—The Midnight Gazette 

“It lives up to its title. I have about six books on this subject, and this is 
by far the most readable of the group.”—VICtims Newsletter 


“The best book on introducing 6502 code available.”—Ian Chadwick, 
author of Mapping the Atari 


The Second Book of Machine Language picks up where Machine Language 
for Beginners left off. This new book contains one of the most powerful 
machine language assemblers currently available. The LADS assembler 
is a full-featured, label-based, programming language which can greatly 
assist you in writing machine language programs quickly and easily. 

You work in an environment with which you're already familiar: 
BASIC. You can use line numbers, multiple statements on a line, named 
variables and subroutines, remarks, error messages, and various pro- 
grammers’ aids like automatic line numbering, search and replace, etc. 

But the book is more than a sophisticated program. It’s also a clear, 
detailed tutorial on how large, complex machine language programs can 
LoX-Mele) atin ubCeitcro mole tameyapeat-vat-t:<-r-Vo) (mit lye) coy-su-beat-eam Ol-)bateal OYA DloM-(-We al 
example, each instruction is explained, each subroutine is examined. 
Many sophisticated machine language techniques are illustrated and 
thoroughly explained—everything from data base management to 
exopeabenterancectuleraMangisamovatalcu-m-baleMell) alebukyo-n ete A 

_ There are powerful computer languages and there is good docu- 
mentation, but rarely has a sophisticated language been so completely 
documented as it is in this book, When you finish with this book, you'll | 
not only have a deeper understanding of machine language—you'll also 
have one of the most powerful machine language assemblers available. _ 


ISBN 0-942386-5301 


BEB oiore 64, Apple (II, I+, lle, and Ilc, DOS 3.3), VIC-20 (8K RAM expansion required), Atari 
(incl&Sing XL, 40K minimum), and PET/CBM (Upgrade and 4.0 BASIC). ks ; 


